[Kimo2018]

الاخوه الافاضل لمن تابع دورة تصميم برنامج مبيعات متكامل (للمهندس عثمان خورشيد)
ارجو شرح هذا الكود
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) وما بداخل هذا المديول

[هاني جمال]

Public Class mylist
Public MyId As Integer
Public MyStr As String

Public Sub New(ByVal s As String, ByVal i As Integer)
MyStr = s
MyId = i
End Sub
Public Overrides Function ToString() As String
ToString = MyStr
End Function
End Class


Class mylist2
Public MyId As Integer
Public MyStr1 As String
Public MyStr2 As String


Public Sub New(ByVal s1 As String, ByVal i As Integer, ByVal s2 As String)
MyStr1 = s1
MyStr2 = s2
MyId = i

End Sub

Public Overrides Function ToString() As String
ToString = MyStr1
End Function
End Class