23-04-19, 04:19 AM
شكرا اخي انا غيرت الكود هكذا
لكن المشكلة بمجرد الضغط على اي صف للنقل بدون تشييك يظهر 12 مسج بكس و لو فيه 20 سطر يظهر 20 مسج بكس متتالية
يعني لو نويت انقل صف بدون تشييك يطلعلي مسجات بكس بقدر عدد السطور
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' نقل الداتا من جريد 1 الى جريد 2
'For ii As Integer = DataGridView1.RowCount - 1 To 0 Step -1
' If DataGridView1.Rows(ii).Cells(4).Value Then
' DataGridView2.Rows.Item(ii).Visible = True
' DataGridView1.Rows.Item(ii).Visible = False
' DataGridView1.Rows(ii).Cells(4).Value = False
' DataGridView2.Rows(ii).Cells(4).Value = False
' End If
'Next
For ii As Integer = DataGridView1.RowCount - 1 To 0 Step -1
If DataGridView1.Rows(ii).Cells(4).Value Then
DataGridView2.Rows.Item(ii).Visible = True
DataGridView1.Rows.Item(ii).Visible = False
DataGridView1.Rows(ii).Cells(4).Value = False
DataGridView2.Rows(ii).Cells(4).Value = False
Else
MsgBox("انتبه يجب التاكيد بوضع علامة التشيك بكس")
End If
Next
End Subيعني لو نويت انقل صف بدون تشييك يطلعلي مسجات بكس بقدر عدد السطور

