المشاركات : 2
المواضيع 1
الإنتساب : May 2018
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
الاخوه الافاضل لمن تابع دورة تصميم برنامج مبيعات متكامل (للمهندس عثمان خورشيد)
ارجو شرح هذا الكود
Sub FillItemCom(sqlstr As String)
CmbItems.Items.Clear()
CmbItems.Text = ""
Dim adp As New SqlClient.SqlDataAdapter(sqlstr, SqlConn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count > 0 Then
For I = 0 To dt.Rows.Count - 1
On Error Resume Next
CmbItems.Items.Add(New MyList2(dt.Rows(I).Item("ItemName"), dt.Rows(I).Item("ItemInternal_ID"), dt.Rows(I).Item("ItemCode")))
Next
End If
End Sub
وبالأخص ما المقصود ب (MyList2) وما بداخل هذا المديول