[الوادي]

يا رياض،

هذا التعديل على أساس اضافة اسم ورقم ولو أضفت الاسم مكرر برقم آخر سيظهر الرقم ضمن الأرقام الخاصة بنفس الاسم في ال ListBox

PHP كود :

Public Class Form1


    Dim dt As New DataTable("PhoneBook")


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        dt.Columns.Add("Name")
        dt.Columns.Add("Phone")

    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
            MsgBox("تأكد من البيانات")
            Return
        End If

        dt.Rows.Add(TextBox1.Text, TextBox2.Text)
        'MsgBox("تمت الإضافة")

        ComboBox1.Items.Clear()
        Dim names = From row As DataRow In dt.Rows Select row("Name") Distinct
        ComboBox1.Items.AddRange(names.ToArray)

        ComboBox1.Text = TextBox1.Text

        TextBox2.Text = ""
        TextBox2.Focus()

    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ViewPhones(ComboBox1.Text)

    End Sub


    Private Sub ViewPhones(nm As String)

        ListBox1.Items.Clear()
        Dim phones = From row As DataRow In dt.Rows Where row("Name") = nm Select row("Phone")
        ListBox1.Items.AddRange(phones.ToArray)

    End Sub


End Class 


تذكر أنك لم تضع مشروعك للتعديل عليه، يعني قاعدين نخبص يمين شمال.