[elgokr]

(23-04-19, 03:17 AM)العيدروس كتب :  لو ممكن يكون messagebox اذا السطر مو عليه علامة تشيك بكس مو متشيّك لا يتم النقل و تظهر رسالة بان السطر لم يتم التعليم بتشيك بكس للأمان فقط عند النقل و بارك الله فيك

بخصوص الرسالة المتعددة بعدد جميع ما لم يتم

نقل البيانات من جريد الى اخر فانظر الى طلبك فى ردك السابق

الا اذا كنت تريد فقط رسالة واحدة بنهاية الامر بعدد ما لم يتم نقله فاليك التالى

تعال على حدث Button1_Click

واستبدل ما به بهذا الكود

كود :

       ' نقل الداتا من جريد 1 الى جريد 2
       Dim TotalMsg As Integer = 0
       For ii As Integer = DataGridView1.RowCount - 1 To 0 Step -1
           If DataGridView1.Rows.Item(ii).Visible = True Then
               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
                   TotalMsg += 1
               End If
           End If
       Next
       If TotalMsg <> 0 Then MsgBox("لديك عدد " & TotalMsg & " من البيانات التى لم تتم نقلها.")

تعال على حدث Button2_Click

واستبدل ما به بهذا الكود

كود :

       ' نقل الداتا من جريد 2 الى جريد 1
       Dim TotalMsg As Integer = 0
       For ii As Integer = DataGridView2.RowCount - 1 To 0 Step -1
           If DataGridView2.Rows.Item(ii).Visible = True Then
               If DataGridView2.Rows(ii).Cells(4).Value Then
                   DataGridView1.Rows.Item(ii).Visible = True
                   DataGridView2.Rows.Item(ii).Visible = False
                   DataGridView1.Rows(ii).Cells(4).Value = False
                   DataGridView2.Rows(ii).Cells(4).Value = False
               Else
                   TotalMsg += 1
               End If
           End If
       Next
       If TotalMsg <> 0 Then MsgBox("لديك عدد " & TotalMsg & " من البيانات التى لم تتم نقلها.")

وبنهاية النقل اذا وجد شئ لم يتم نقله

سيتم عرض رسالة بالعدد

تحياتى لك

وتمنياتى لك التوفيق