تعبئه Textbox عند تغير قيمة Combobox

بسم الله الرحمن الرحيم

والصلاة والسلام على أشرف المرسلين سيدنا محمد وعلى آله وصحبة أجمعين

قم بإدراج المرجع
Imports System.Data.OleDb
اجعل نص الأتصال هكذا
Public ds1 As New DataSet
Public dc As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; Data Source= C:\DB.mdb")
Public da As New OleDbDataAdapter("select * from Tblpro", dc)
في حدث Form1_Load
If Not dc.State = ConnectionState.Open Then
dc.Open()
da.Fill(ds1, "Tblpro")
dc.Close()
End If
ComboBox1.DataSource = ds1.Tables("Tblpro")
ComboBox1.DisplayMember = ("Tblpro")
في حدث ComboBox1_SelectedIndexChanged
TextBox1.Text = ds1.Tables("Tblpro").Rows(ComboBox1.SelectedIndex).Item(1)

1- : حول ال datareader to datatable

2- : استعمل خاصية ال Binding و SelectedValue و ValueMember

        Dim cn As New OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;" & _
            "Data Source=" & Application.StartupPath & "\DB.mdb"
        cn.Open()
        Dim cm As New OleDbCommand("select * from Tblpro", cn)
        Dim dr As OleDbDataReader = cm.ExecuteReader
        Dim dt_for_combo As  New datatable
        dt_for_combo.Load(dr)
        ComboBox1.DataSource = dt_for_combo
        ComboBox1.DisplayMember = "project_number_field_name"
        ComboBox1.ValueMember = "project_name_field_name"
        dr.Close()
        cn.Close()

in selected index event put the code

txt_project_name.text = ComboBox1.SelectedValue

مشكوورين شباب ماقصرتوو

حليت المشكله والحمدلله

هذا كله لاني وقت فتره طويله من البرمجه والان حاولت ارجع ونسيت كل شي تقريبا

بسسبب التعود على الكودات الجاهزه