20-05-18, 02:26 AM
وعليكم السلام
شوف اللي اضفت للمشروع
متغير على مستوي الفورم
إجراء مستقل لتحميل البيانات للكومبوبوكس
عند حدث الفورم لود
عند حدث ComboBox1_SelectedIndexChanged
شوف اللي اضفت للمشروع
متغير على مستوي الفورم
PHP كود :
Dim dt As DataTable
إجراء مستقل لتحميل البيانات للكومبوبوكس
PHP كود :
Private Sub gd()
Using myconnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATAMMM.accdb")
Using da As New OleDbDataAdapter("select * from Table1", myconnection)
dt = New DataTable
da.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "NU_CALLING"
End Using
End Using
End Sub
عند حدث الفورم لود
PHP كود :
gd()
PHP كود :
If ComboBox1.Items.Count = 0 Then Exit Sub
If dt.Rows.Count = 0 Then Exit Sub
TextBox1.Text = dt(ComboBox1.SelectedIndex)("first_record")
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

