[essawq]

السلام عليكم ورحمة الله وبركاتة

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

يتم التعديل والامور تماام لكن اريد بعد التعديل ان يقف علة نفس السجل المعدل في الداتا جريد فيو

في كود اضافة يعمل تماام لوعندي 1000 سجل بعد الاضافة يقف على اخر سجل تمت اضافتة

استعملتة للتعديل 

وبعد التعديل يتم تحميل كل البيانات ويقف على اول سجل 

وظليت اعدل وابدل بالاكواد والان يقف على السجل الثاني او الثالث

فضلا لا امرا الاطلاع على الكود وشرح اين الخطا

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

كود :

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, "التحديث")

           myconn.pos = myconn.dt.Rows.Count
           myconn.load_data()
           DgvEdit.DataSource = myconn.dv
           BindingContext(myconn.dv).Position = myconn.pos
           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

تحياتي لكم