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

السلام عليكم

اريد استعراض صف معين من الداتا سيت الي التيكست للتعديل علية او مشاهدة حقولة

انا استخدم قواعد بيانات اكسيس

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

واقوم بتخزين كامل بيانات الجدول بداتا سيت اخري لعرض كل الصف او التعديل علي صف محدد

الجدول كامل

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

و انا اريد ان يتم استعراض الصف من الداتا سيت عند الوقوف علي صف بالداتا جريد  علي اساس معلومية او قيمة حقل الكود او العمود الخاص  (CUSTOMERDETAILS_CODE ) بالداتا جريد ويكون نفس الكود موجود بالداتا سيت بغض النظر عن رقم الصف وحيث لم يتم اخفاء الزبون عن طريق عمل شيك no لة بالجدول

كود :

 Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETALIS_SHOW =Yes", con)
               con.Open()
               DataAdapterm = New OleDbDataAdapter(cmd)
               DataSetupdat.Clear()
               DataAdapterm.Fill(DataSetupdat, "CUSTOMERDETAILS_TB")
               If DataSetupdat.Tables(0).Rows.Count > 0 Then

                   Dim indx As Integer = (DATAG_CLIENONLIN.CurrentRow.Index)

                   TextBox1.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_ID").ToString
                   TextBox2.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETAILS_CODE").ToString
                   TextBox3.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_NAME").ToString
                   TextBox4.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_COMPANY").ToString
                   TextBox5.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_TELEPHON").ToString
                   TextBox6.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_NOTE").ToString
                   TextBox7.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_DATE").ToString
                   TextBox8.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_CREDIT").ToString
                   TextBox9.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_DEBIT").ToString
                   TextBox10.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_BLANCE").ToString



               Else
                   MsgBox("data not found") : Exit Sub
               End If