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

(31-10-18, 05:01 AM)elgokr كتب : فقط استخدم الكود بهذا الشكل

كود :

   Private Sub BT_DELETE_Click(sender As System.Object, e As System.EventArgs) Handles BT_DELETE.Click
       Try
           If (DATAG_CLIENONLIN.SelectedRows.Count <= 0) Then
               MessageBox.Show("اختر عميل محدد", "خطا")
               Exit Sub
           Else
               Dim indx As Integer = DATAG_CLIENONLIN.CurrentRow.Index
               Dim result As Integer = MessageBox.Show(" هل تريد حذف العميل رقم" & vbNewLine & DATAG_CLIENONLIN(1, indx).Value.ToString(), "حذف", MessageBoxButtons.YesNo)
               If result = DialogResult.Yes Then
                   Dim com As New OleDbCommand("UPDATE CUSTOMERDETAILS_TB SET CUSTOMERDETALIS_SHOW=@CUSTOMERDETALIS_SHOW  WHERE CUSTOMERDETALIS_ID = @CUSTOMERDETALIS_ID", con) ',CUSTOMERDETALIS_DATE=@CUSTOMERDETALIS_DATE
                   Dim checkUPDAT As Boolean = False
                   con.Open()
                   com.Parameters.AddWithValue("@CUSTOMERDETALIS_SHOW", checkUPDAT)
                   com.Parameters.AddWithValue("@CUSTOMERDETALIS_ID", DATAG_CLIENONLIN(1, indx).Value.ToString())
                   com.ExecuteNonQuery()
                   conn()
                   MsgBox("delete succes")
                   con.Close()
               ElseIf result = DialogResult.No Then
                   Exit Sub
               End If
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       Finally
           con.Close()
       End Try
   End Sub

ما الذى قد يسبب تلك الخطاء

السبب سيرجع بسبب كلاً من هذا الاسطر

كود :

               Dim indx As Integer = DATAG_CLIENONLIN.CurrentRow.Index
               Dim result As Integer = MessageBox.Show(" هل تريد حذف العميل رقم" & vbNewLine & DATAG_CLIENONLIN(1, indx).Value.ToString(), "حذف", MessageBoxButtons.YesNo)

حيث انه تحتوى على 

PHP كود :

DATAG_CLIENONLIN.CurrentRow.Index
و
DATAG_CLIENONLIN(1, indx).Value.ToString() 


وبطبيعة الحال القيم هنا غير معرفة لانه لم يتم تحديد اى شئ

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

تنفيذ الاكواد وبكده تكون تجنبت المشكلة التى تظهر

تحياتى لك

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

ماقلتة اكثر من رائع
اسال الله ان يجعلة في ميزان حسناتك