[حافظ حافظ]

السلام عليكم و رحمة الله
رمضان طيب .اخواني ارجو المساعدة
كيف أملآ الكومبوبوكس 1 من الجقل contactname
ثم عندما أختار رقم من الكومبوبكس يلي ملأته يطلع بالتاكست بوكس ما يقابلع ذلك الرقم بالحقل categoryname
أختار من الكومبوبكس الرقم 1 مثلا يطلع بالتاكست بكس العدد 120111 و لما اختار من الكومبو الرقم 2 يظهر بالتاكست بوكس العدد 120222 و هكذا.الارقام متغيرة و لذلك لا يمكنني اعتمد على ملء الكومبوبكس بطريقة items collection
بارك الله فيكم

[حريف برمجة]

(03-06-18, 12:21 PM)حافظ حافظ كتب : السلام عليكم و رحمة الله
رمضان طيب .اخواني ارجو المساعدة
كيف أملآ الكومبوبوكس 1 من الجقل contactname
ثم عندما أختار رقم من الكومبوبكس يلي ملأته يطلع بالتاكست بوكس ما يقابلع ذلك الرقم بالحقل categoryname
أختار من الكومبوبكس الرقم 1 مثلا يطلع بالتاكست بكس العدد 120111 و لما اختار من الكومبو الرقم 2 يظهر بالتاكست بوكس العدد 120222 و هكذا.الارقام متغيرة و لذلك لا يمكنني اعتمد على ملء الكومبوبكس بطريقة items collection
بارك الله فيكم

ضع هذا الكود في الفورم كامل :

كود :

Imports System.Data.OleDb

Public Class Form1

    Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\Remind.mdb")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dp As New OleDbDataAdapter("select categoryname,contactname from Table1", Conn)

        Dim dt As New DataTable

        dp.Fill(dt)

        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "contactname"
        ComboBox1.ValueMember = "categoryname"
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        TextBox1.Text = ComboBox1.SelectedValue.ToString
    End Sub
End Class

[حافظ حافظ]

الهي يبارك فيك و رمضان طيب اخ حريف برمجة .هو ما اريده بالضبط تسلم الايادي و بارك الله فيك