منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم مشلكه عند الغاء تحديث الخلية والضغط علي no  وتحديث البيانات حدث CellEndEdit 

اريد ارجاع قيمة الخلية عند الضغط علي no تم اضافة  Me.view امر استخدمه لتحديث البيانات ويعمل جيدا 

لاكن المشكل عند الوقوف علي خلية اخري غير الخلية التي يتم التعديل عليه والضغط علي no تظهر رسالة خطأ 


هل يوجد كود عند الضغط علي no يتم ارجاع القيمة 

كود :
    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

        
Dim result As DialogResult = MessageBox.Show("هل تريد تحديث البيانات", "Info", MessageBoxButtons.YesNo)
       If result = DialogResult.No Then


           Me.view()



       ElseIf result = DialogResult.Yes Then
' كود تحديث البيانات


       End If

   End Sub
وجدت طريقة وهي عرض البيانات من جدول قاعدة البيانات واضافتها في الخلية مرة اخري

كود :
وهذا هو الكود للفائدة

           Using connection As New OleDbConnection(constr)
               Dim command As New OleDbCommand("Select Name,Email,CountryCode,Budget,mcam from customer WHERE CustomerID=" & DataGridView1.CurrentRow.Cells(0).Value.ToString() & "  ORDER BY CustomerID DESC  ", connection)
               connection.Open()
               Dim reader As OleDbDataReader = command.ExecuteReader()
               While reader.Read()
                   Console.WriteLine(reader(0).ToString())
                   If e.ColumnIndex = 1 Then
                       DataGridView1(e.ColumnIndex, e.RowIndex).Value = Trim((reader("Name").ToString()))
                   ElseIf e.ColumnIndex = 2 Then
                       DataGridView1(e.ColumnIndex, e.RowIndex).Value = Trim((reader("Email").ToString()))
                   ElseIf e.ColumnIndex = 3 Then
                       DataGridView1(e.ColumnIndex, e.RowIndex).Value = Trim((reader("CountryCode").ToString()))
                   ElseIf e.ColumnIndex = 4 Then
                       DataGridView1(e.ColumnIndex, e.RowIndex).Value = Trim((reader("Budget").ToString()))
                   ElseIf e.ColumnIndex = 5 Then
                       DataGridView1(e.ColumnIndex, e.RowIndex).Value = Trim((reader("mcam").ToString()))
                   End If
               End While
               reader.Close()
           End Using