[khaled Mohammed]

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

عندي listbox عملت لها كود اظهار الاصناف من جدول بـ data base عند الضغط على button 
ثم عملت حدث عند الضغط على اي عنصر فى listbox يظهر بيانات الصنف فى datadridview 
يوجد مشكله فى الكود

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim da As New OleDbDataAdapter(" select ID , STU_NAME from STU_INFO", con)
       Dim dt As New DataTable
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = dt.Columns(1).ColumnName
       ListBox1.ValueMember = dt.Columns(0).ColumnName

       da = Nothing

   End Sub

   Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
       If (ListBox1.SelectedIndex = -1) Then Return

       'MessageBox.Show(ListBox1.SelectedValue)

       Dim da As New OleDbDataAdapter(" select * from STU_NAME where ID=", ListBox1.SelectedValue, con)
       Dim dt As New DataTable
       da.Fill(dt)
       DataGridView1.DataSource = dt
   End Sub

---

اوك يا جماعة اسف عرفت الخطأ
كتبت اسم الجدول بالخطأ

---

اذا مطلوب اسجل قيمة ما من نفس الجدول فى تكست بوكس الكود يكون اي

[Anas Mahmoud]

اذا اردت استخدام نفس ال DataTable في ملى التكست بوكس يمكنك ذلك

كود :

       TextBox1.DataBindings.Add("Text", dt, "Table1.Name")
       TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode")
       BindingContext(dt).Position = 2

عدل Table1 الى اسم الجدول ، وكذلك اسماء الحقول

عدل 2 الى رقم الحقل الذي تريد عرضه

[khaled Mohammed]

(14-09-20, 11:42 PM)Anas Mahmoud كتب : اذا اردت استخدام نفس ال DataTable في ملى التكست بوكس يمكنك ذلك

كود :

       TextBox1.DataBindings.Add("Text", dt, "Table1.Name")
       TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode")
       BindingContext(dt).Position = 2

عدل Table1 الى اسم الجدول ، وكذلك اسماء الحقول

عدل 2 الى رقم الحقل الذي تريد عرضه

بتطبيق الكود جاء رساله خطا التالية  Cannot bind to the property 'STU_EMAIL' on the target control.
علما بان الجدول اسمه STU_INF و العمود STU_EMAIL و رقم العمود 4

كود :

       TextBox1.DataBindings.Add("STU_EMAIL", dt, "STU_INF")
       'TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode")
       BindingContext(dt).Position = 4

[Anas Mahmoud]

(15-09-20, 01:30 AM)khaled Mohammed كتب : بتطبيق الكود جاء رساله خطا التالية  Cannot bind to the property 'STU_EMAIL' on the target control.
علما بان الجدول اسمه STU_INF و العمود STU_EMAIL و رقم العمود 4

كود :

       TextBox1.DataBindings.Add("STU_EMAIL", dt, "STU_INF")
       'TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode")
       BindingContext(dt).Position = 4

اخي في المدخل الاول تدخل اسم الخاصية التي تريد ربطها بالداتا تابل وليس اسم الحقل

كود :

       TextBox1.DataBindings.Add("Text", dt, "STU_INF.STU_EMAIL")
       BindingContext(dt).Position = 4