منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

عندي 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

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

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

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

كود :

       TextBox1.DataBindings.Add("Text", dt, "Table1.Name")

        TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode")

        BindingContext(dt).Position = 2

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

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

(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

(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