[ابراهيم ايبو]

السلام عليكم اخي عبد العزيز
نقوم بعمل صب لاملاء الكومبوبوكس باسماء المنتجات مثل هذا ولكن حسب الجدول وحقل المعرف والاسم الذي عندك

كود :

 Public Sub fillcmb_from_Items(ByVal cmb As ComboBox)
       'load Items in Combobox
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("Select * from Items ", con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           cmb.DataSource = dt
           cmb.DisplayMember = "Itm_Name"
           cmb.ValueMember = "Itm_ID"
       Else
           cmb.DataSource = Nothing
       End If
   End Sub

ثم ننادي عليه في حدث فورم لود ونضع له الباراميتر وهو اسم الكومبو الذي سوف يملأ
لاحظ هناك قيمتين واحدة للعرض DisplayMember اسماء المنتجات والثانية ValueMember وهي للاي دي وهي غير ظاهرة
وفي حدث ComboBox1_SelectedIndexChanged ننشئ جملة البحث بحيث عندما نختار الاسم من الكومبو بوكس يكون الشرط هو ان الاي دي يساوي ال ValueMember  أي  Combobo1.selectedvalue لان كل عنصر مرتبط به وهنا هو الايدي
وبعدها تقوم بعرض النتائج في مربعات النصوص هذه هي الفكرة
افصل بين كود  تعبئة الكومبوبوكس  وكود البحث
ملاحظة اخرى اجعل القيمة الافتراضية للكومبوبوكس في جدث فورم لود بـ  -1 اي لاظهور لاي اسم منتج

كود :

Combobo1.selectedvalue=-1