[مساعدة]

السلام عليكم

إن لم يتم الاستفادة من مشاركة أستاذنا silverlight

جرب هذه الطريقة

ضع هذه الأسطر في الحدث Form_Load وغير ما يلزم من قيمة كل من DataSource وDisplayMember وValueMember إلى القيم المناسبة

كود :

Me.ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
Me.ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
Me.ComboBox1.DataSource = Database1DataSet1.Table1
Me.ComboBox1.DisplayMember = "Name"
Me.ComboBox1.ValueMember = "Number"
Me.ComboBox1.SelectedIndex = -1

ثم استخدم هذا الكود وغير ما يلزم أيضاً منه بما يتوافق مع اسماء الأعمدة لديك

كود :

Private Sub ComboBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
    If e.KeyCode = Keys.Enter AndAlso IsNumeric(Me.ComboBox1.Text) Then
        Dim txt = (
            From x In Database1DataSet1.Table1
            Where x.Number = Val(Me.ComboBox1.Text)
            Select x.Name).FirstOrDefault
        Me.ComboBox1.Text = txt
        Me.ComboBox1.SelectAll()
    End If
End Sub

---

في النهاية إذا تعرف الطريقة

ضع مشروعك لعل أحد الأعضاء لديه الوقت ليقوم بإفادتك.