PDA

View Full Version : سوال: حذف از datagrid , اضافه به datagrid دیگه



mohsenaminzare
جمعه 19 مهر 1387, 13:49 عصر
دو تا دیتاگرید ویو دارم با زدن دکمه ای ایتم های انتخاب شده باید از DGW اول حذف و به دومی اضافه شود با کد زیر این کارانجام می شه ولی سطر های خالی اضافه می شه و محتویات انها حذف واضافه نمی شه . مشکل ؟


If Me.DataGridView1.SelectedRows.Count <> 0 Then
Dim tmp As DataGridViewRow
For Each tmp In Me.DataGridView1.SelectedRows

Me.DataGridView1.Rows.Remove(tmp)

DataGridView2.Rows.Add(tmp)


Next
End If

mohsenaminzare
شنبه 20 مهر 1387, 16:44 عصر
کمک کمک؟

kablayi
شنبه 20 مهر 1387, 19:53 عصر
کمک کمک؟

سلام ...


' ابتدا آرایه ای از مقادیر سطر مورد نظر را ایجاد نموده
Dim STRrow As String() = {DGV1.CurrentRow.Cells("کالا").Value, DGV1.CurrentRow.Cells("تعداد").Value, DGV1.CurrentRow.Cells("قیمت").Value}
' آرایه ایجاد شده را در دیتاگرید ویو مشابه اضافه نمائید
DGV2.Rows.Add(STRrow)
' در آخر هم سطر انتقال داده شده را حذف نمائید
DGV1.Rows.Remove(DGV1.CurrentRow)


موفق باشید ...

NewFoxStudent
شنبه 20 مهر 1387, 19:57 عصر
مشکل شما اینه که اول سطر رو حذف میکنید
بعد میخواهید سطر حذف شده رو به گرید دوم اضافه کنید
که ردیف خالی اضافه میشود
همین

NewFoxStudent
شنبه 20 مهر 1387, 19:59 عصر
مشکل شما اینه که اول سطر رو حذف میکنید
بعد سطری رو که خالیه به گرید دوم اضافه میکنید

If Me.DataGridView1.SelectedRows.Count <> 0 Then
Dim tmp As DataGridViewRow
For Each tmp In Me.DataGridView1.SelectedRows

DataGridView2.Rows.Add(tmp)
Me.DataGridView1.Rows.Remove(tmp)

Next
End If

mohsenaminzare
سه شنبه 23 مهر 1387, 23:42 عصر
با تشکر از دوستان . جواب رو پیدا کردم به صورت زیر . ولی فکر کنم راه بهتری هم باشه ؟!

If Me.DataGridView1.SelectedRows.Count <> 0 Then
Dim tmp As DataGridViewRow
for Each tmp In Me.DataGridView1.SelectedRows
Me.DataGridView2.Rows.Add(1)
Me.DataGridView2.Rows(Me.DataGridView2.RowCount-1).Cells.Item("id").Value = tmp.Cells.Item("id").Value
Me.DataGridView2.Rows(Me.DataGridView2.RowCount - 1).Cells.Item("book_name").Value = tmp.Cells.Item("book_name").Value
Me.DataGridView2.Rows(Me.DataGridView2.RowCount - 1).Cells.Item("id_libarary").Value = tmp.Cells.Item("id_libarary").Value
Me.DataGridView1.Rows.Remove(tmp)

Next
End If