منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مل الكزمبوبوكس ثم الاختيار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مل الكزمبوبوكس ثم الاختيار (/showthread.php?tid=25215)

مل الكزمبوبوكس ثم الاختيار - حافظ حافظ - 03-06-18

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

RE: مل الكزمبوبوكس ثم الاختيار - حريف برمجة - 03-06-18

(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


RE: مل الكزمبوبوكس ثم الاختيار - حافظ حافظ - 03-06-18

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