[محمد اسماعيل]

(30-10-18, 11:42 PM)Rabeea Qbaha كتب :

كود :

       If DATAG_CLIENONLIN.SelectedRows.Count > 0 Then
           MsgBox("الرجاء اختيار الصف المراد حذفة")
           Return
       End If

حاولت من قبل ولكن نفس الشيء يتخطي الشرط وعموما المفروض يكون كدة

كود :

  If DATAG_CLIENONLIN.SelectedRows.Count < 0 Then
               MsgBox("الرجاء اختيار الصف المراد حذفة")
               Return

           End If

الحل الوحيد بطريقة تخطي الخطا عشان يظهر عدة اختيار اي صف بالكود التالي

كود :

On Error Resume Next
       Dim indx As Integer = DATAG_CLIENONLIN.CurrentRow.Index
       If (DATAG_CLIENONLIN.CurrentRow.Index < 0) Then
           MessageBox.Show("اختر عميل بالضغط علي اسمة", "خطأ") : Exit Sub
       End If

وانا عايز اعرف في فين المشكلة وانا لا احب استخدام الجملة

كود :

On Error Resume Next