08-10-18, 05:24 PM
(آخر تعديل لهذه المشاركة : 08-10-18, 05:32 PM {2} بواسطة محمد اسماعيل.)
السلام عليكم
اريد استعراض صف معين من الداتا سيت الي التيكست للتعديل علية او مشاهدة حقولة
انا استخدم قواعد بيانات اكسيس
واقوم بعرض حقول معينة بالداتا جريد فيو للمستخدم واقوم بتخزين الحقول المعروضة بالداتا جريد بداتا سيت
واقوم بتخزين كامل بيانات الجدول بداتا سيت اخري لعرض كل الصف او التعديل علي صف محدد
الجدول كامل
استخدمت الكود التالي وبية مشكلة انة بيعرض البيانات بناء علي رقم الصف بالداتا جريد ورقمة بالداتا سيت
و انا اريد ان يتم استعراض الصف من الداتا سيت عند الوقوف علي صف بالداتا جريد علي اساس معلومية او قيمة حقل الكود او العمود الخاص (CUSTOMERDETAILS_CODE ) بالداتا جريد ويكون نفس الكود موجود بالداتا سيت بغض النظر عن رقم الصف وحيث لم يتم اخفاء الزبون عن طريق عمل شيك no لة بالجدول
اريد استعراض صف معين من الداتا سيت الي التيكست للتعديل علية او مشاهدة حقولة
انا استخدم قواعد بيانات اكسيس
واقوم بعرض حقول معينة بالداتا جريد فيو للمستخدم واقوم بتخزين الحقول المعروضة بالداتا جريد بداتا سيت
واقوم بتخزين كامل بيانات الجدول بداتا سيت اخري لعرض كل الصف او التعديل علي صف محدد
الجدول كامل
استخدمت الكود التالي وبية مشكلة انة بيعرض البيانات بناء علي رقم الصف بالداتا جريد ورقمة بالداتا سيت
و انا اريد ان يتم استعراض الصف من الداتا سيت عند الوقوف علي صف بالداتا جريد علي اساس معلومية او قيمة حقل الكود او العمود الخاص (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