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

السلام عليكم و رحمة الله
رمضان طيب .اخواني ارجو المساعدة
كيف أملآ الكومبوبوكس 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

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