+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اجراء تعبئة الكمبوبوكس (/showthread.php?tid=31531)
اجراء تعبئة الكمبوبوكس - Kimo2018 - 27-09-19
الاخوه الافاضل لمن تابع دورة تصميم برنامج مبيعات متكامل (للمهندس عثمان خورشيد)
ارجو شرح هذا الكود
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) وما بداخل هذا المديول
RE: اجراء تعبئة الكمبوبوكس - هاني جمال - 04-10-20
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