PDA

View Full Version : چطوری باید به انتهای DataTable سطر اضافه کنم



baran_mehr
شنبه 17 فروردین 1387, 21:50 عصر
ایا برای اضافه کردن به انتهای DataTable باید با دستور به انتهای DataTable رفت و بعد دستور NewRow را استفاده کرد و یا نه یه صورت دیگه هم میشه این کار رو انجام داد؟؟:متفکر:
من هر کاری میکنم مقادیر رو روی مقدار قبلی میریزه انگار که همیشه Index ثابت یک جا هست و تغییر نمیکنه:افسرده:

twelve
شنبه 17 فروردین 1387, 22:21 عصر
Dim Dt As DataTable = New DataTable("tablename")
Dim dr As DataRow
Dim dc As DataColumn = New DataColumn
dr = Dt.NewRow
dr("DataRowName") = (مقدار درون DataRow)

baran_mehr
شنبه 17 فروردین 1387, 22:41 عصر
نه عزیزم این کد یک رکورد جدید روی قبلی میزاره

twelve
یک شنبه 18 فروردین 1387, 01:39 صبح
یعنی روی رکورد های قبلی Overwrite میشه ؟! امکان نداره.

baran_mehr
یک شنبه 18 فروردین 1387, 11:56 صبح
چرا امکان داره.دقیقا روی رکورد قبلی میریزه
من یک جا خونده بودم که باید به انتهای رکوردها روفت و دستور رو اجرا کرد و از دستوری مثل endedit استفاده کرد .چندان مطمئن نیستم هر طوری هم که امتحان کردم نشد

baran_mehr
یک شنبه 18 فروردین 1387, 16:17 عصر
کسی از دوستان نیست که تو این زمینه بتونه کمکی کنه؟؟

Dariuosh
یک شنبه 18 فروردین 1387, 19:04 عصر
برای مثال


PublicClass Form1
Private Dt AsNew DataTable
PrivateWithEvents DGV AsNew DataGridView
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.Controls.Add(DGV)
With DGV
.Dock = DockStyle.Fill
.Columns.Add("Column1", "Column1")
.Columns.Add("Column2", "Column2")
.Columns.Add("Column3", "Column3")
.Columns.Add("Column4", "Column4")
EndWith
With Dt
.Columns.Add("Column1")
.Columns.Add("Column2")
.Columns.Add("Column3")
.Columns.Add("Column4")
EndWith
EndSub
PrivateSub DGV_RowLeave(ByVal sender AsObject, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.RowLeave
Dim dr As DataRow = Dt.NewRow()
WithMe.DGV
dr.Item("Column1") = .CurrentRow.Cells(0).Value
dr.Item("Column2") = .CurrentRow.Cells(1).Value
dr.Item("Column3") = .CurrentRow.Cells(2).Value
dr.Item("Column4") = .CurrentRow.Cells(3).Value
EndWith
Dt.Rows.Add(dr)
EndSub
EndClass