02-02-17, 05:43 PM
السلام عليكم دة كود ملئ كومبو بوكس باسماء الاصناف
انا عاوز اعرف ازاي اظهر حقل اخر مع اسم الصنف
Public Sub fillItemName(sql As String, ItemName As ComboBox)
ItemName.Items.Clear()
Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
For i = 0 To dt.Rows.Count - 1
ItemName.Items.Add(dt.Rows(i).Item("ItemName"))
Next
End Sub
==========================================================
fillItemName("select * from Items order by ItemName", CmbITems)
انا عاوز اعرف ازاي اظهر حقل اخر مع اسم الصنف
Public Sub fillItemName(sql As String, ItemName As ComboBox)
ItemName.Items.Clear()
Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
For i = 0 To dt.Rows.Count - 1
ItemName.Items.Add(dt.Rows(i).Item("ItemName"))
Next
End Sub
==========================================================
fillItemName("select * from Items order by ItemName", CmbITems)