17-09-20, 03:37 PM
17-09-20, 07:06 PM
السلام عليكم...
هل تقصد بناءً على بيانات من كمبوبوكس أخر؟؟
إذا كان كذلك فتفضل:
ملحوظة: المستلف = هي المراد تحميلها في الكمبوبوكس الثاني.
.........: الإشاعة = بتبحث بيها في الكمبوبوكس الأول عشان نعبي الثاني.
.........: فحص = أداة الكمبوبوكس الثاني.
هل تقصد بناءً على بيانات من كمبوبوكس أخر؟؟
إذا كان كذلك فتفضل:
كود :
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.........: الإشاعة = بتبحث بيها في الكمبوبوكس الأول عشان نعبي الثاني.
.........: فحص = أداة الكمبوبوكس الثاني.