+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : Fill Combo Box (/showthread.php?tid=36446)
Fill Combo Box - Compu_Tec - 17-09-20
أريد من الأخوة الكرام مساعدتي في كود تعبئة الكمبوبوكس من كمبوبوكس آخر
RE: Fill Combo Box - اسامه الهرماوي - 17-09-20
السلام عليكم...
هل تقصد بناءً على بيانات من كمبوبوكس أخر؟؟
إذا كان كذلك فتفضل:
كود :
Sub combo()
Dim dsp As New DataTable
dsp.Clear() '
DataAdapter = New SqlDataAdapter("SELECT DISTINCT [المستلف] FROM [expenses] where الإشاعة ='" & TextBox1.Text & "'", con)
DataAdapter.Fill(dsp)
If dsp.Rows.Count > 0 Then
فحص.DataSource = dsp
فحص.DisplayMember = "المستلف"
Else
فحص.DataSource = Nothing
End If.........: الإشاعة = بتبحث بيها في الكمبوبوكس الأول عشان نعبي الثاني.
.........: فحص = أداة الكمبوبوكس الثاني.