[silverlight]

حاول أن تتعامل مع الفواتير بهذا الاسلوب

PHP كود :

Public Class BillInfo

    Public Property BillNo As Integer
    Public Property ClienNo As Integer
    Public Property ClienName As String

End Class 


الاستخدام

PHP كود :

Private Bills As New List(Of BillInfo)() 


PHP كود :

Bills.Add(New BillInfo With {.BillNo = 1, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 2, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 3, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 4, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 5, .ClienNo = 3, .ClienName = "ahmed"})
        For Each bill As BillInfo In Bills
            If Not ComboBox1.Items.Contains(bill.ClienName) Then
                ComboBox1.Items.Add(bill.ClienName)
            End If
        Next 


ولو كنت محتاج اسم الشخص بالاضافة الي عدد فواتيره أن تظهر في الكومبوبوكس يمكنك ان تستخدم الكود بالشكل التالي
و بنفس الاسلوب عليك ان تطبق ما تريد تنفيذه

PHP كود :

Public Class Form1

    Private Bills As New List(Of BillInfo)()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Bills.Add(New BillInfo With {.BillNo = 1, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 2, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 3, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 4, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 5, .ClientNo = 3, .ClienName = "ahmed"})

        For Each bill As BillInfo In Bills
            Dim query = From i In Bills Where i.ClientNo = bill.ClientNo Select i
            If Not ComboBox1.Items.Contains(bill.ClienName & " " & " his tootal Bills = " & query.Count) Then
                ComboBox1.Items.Add(bill.ClienName & " " & " his tootal Bills = " & query.Count)
            End If
        Next
    End Sub
End Class

Public Class BillInfo

    Public Property BillNo As Integer
    Public Property ClientNo As Integer
    Public Property ClienName As String

End Class