[essawq]

الكلاس DBCoonnect غير موجود لدي , لكن إن شاء يعمل معك هذا الكود بعد التعديل

كود :

Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
       If RadioBtnName.Checked = True Then
           If myconn.conn.State = ConnectionState.Closed Then
               myconn.conn.Open()
           End If
           '..................كود تاكد من البيانات
           myconn.ds = New DataSet
           myconn.da = New SqlDataAdapter("Select name from Dalilak where name = '" & TxtNmae.Text & "'", myconn.conn)
           myconn.da.Fill(myconn.ds, "Dalilak")
           myconn.dv = New DataView(myconn.ds.Tables("Dalilak"))
           myconn.cur = CType(Me.BindingContext(myconn.dv), CurrencyManager)
           If myconn.cur.Count <> 0 Then
               MsgBox("hghsl موجود مسبقا", vbMsgBoxRtlReading + vbCritical, "خطا")
               Exit Sub
           End If

           myconn.updata1(TxtNmae.Text, myconn.ID)
           MsgBox("تمت عملية تحديث البيانات بنجاح", vbMsgBoxRtlReading + vbInformation, "التحديث")

           Dim CurrentPosition As Integer = BindingContext(myconn.dv).Position
           ''''''''''''''''''''myconn.pos = myconn.dt.Rows.Count
           myconn.load_data()
           DgvEdit.DataSource = myconn.dv
           BindingContext(myconn.dv).Position = CurrentPosition
           myconn.cur = CType(Me.BindingContext(myconn.dv), CurrencyManager)


           ''myconn.dt.Clear()
           ''myconn.load_data()
           '
           ''DgvEdit.DataSource = myconn.dt
           ''BindingContext(myconn.dv).Position = myconn.pos
           'myconn.cur = CType(Me.BindingContext(myconn.dt), CurrencyManager)
           myconn.showposition(lbl:=LblCount)
           myconn.conn.Open()
           TxtSersh11.Text = ""
           TxtSersh.Text = ""
           BtnEdit.Enabled = False
           TxtNmae.Enabled = True
           TxtPhone1.Enabled = False
           TxtPhone2.Enabled = False
           TxtAdress.Enabled = False
           TxtNotes.Enabled = False
           BtnSersh.Enabled = False
           BtnEdit.Text = "تعديل "
       End If
       If RadoBtnNumper.Checked = True Then
           If myconn.conn.State = ConnectionState.Closed Then
               myconn.conn.Open()
           End If
           myconn.updataNumper(TxtPhone1.Text, TxtPhone2.Text, TxtAdress.Text, TxtNotes.Text, myconn.ID)
           MsgBox("تمت عملية تحديث البيانات بنجاح", vbMsgBoxRtlReading + vbInformation, "التحديث")
           myconn.dt.Clear()
           myconn.load_data()
           DgvEdit.DataSource = myconn.dt
           BindingContext(myconn.dt).Position = myconn.pos
           myconn.cur = CType(Me.BindingContext(myconn.dv), CurrencyManager)
           myconn.showposition(lbl:=LblCount)
           myconn.conn.Open()
           TxtSersh11.Text = ""
           TxtSersh.Text = ""
           BtnEdit.Enabled = False
           TxtNmae.Enabled = True
           TxtPhone1.Enabled = False
           TxtPhone2.Enabled = False
           TxtAdress.Enabled = False
           TxtNotes.Enabled = False
           BtnSersh.Enabled = False
           BtnEdit.Text = "تعديل "
       End If
   End Sub

السلام عليكم ورحمة الله وبركاتة
مشكور اخي وبارك الله فيك
لا زالت نفس المشكلة يقف على اول صف
تفضل اخي ارفقت الكلاس

تحياتي لك