[elgokr]

قم فقط باستبدال منطقة MedType_SelectedIndexChanged بالكود التالى

كود :

   Private Sub MedType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MedType.SelectedIndexChanged
       cnn.Open()
       cmd.Connection = cnn
       MedName.Items.Clear()

       If MedType.SelectedItem = ("Analgesics") Then

           cmd.CommandText = "select * from Analgesics"
           Dim dr As OleDbDataReader = cmd.ExecuteReader
           While dr.Read
               MedName.Items.Add(dr.Item(1))
           End While

           Dim doses As String = dr.Item(2)
           Dim dose As String() = doses.Split("-")
           For ii As Integer = 0 To dose.Count - 1
               ComboBox1.Items.Add(dose(ii))
           Next

           Dim routes As String = dr.Item(3)
           Dim route As String() = routes.Split("-")
           For ii As Integer = 0 To route.Count - 1
               ComboBox1.Items.Add(route(ii))
           Next

           dr.Close()

       End If

       If MedType.SelectedItem = ("Antibiotics") Then

           cmd.CommandText = "select * from Antibiotics"
           Dim dr As OleDbDataReader = cmd.ExecuteReader
           While dr.Read
               MedName.Items.Add(dr.Item(1))
           End While

           Dim doses As String = dr.Item(2)
           Dim dose As String() = doses.Split("-")
           For ii As Integer = 0 To dose.Count - 1
               ComboBox1.Items.Add(dose(ii))
           Next

           Dim routes As String = dr.Item(3)
           Dim route As String() = routes.Split("-")
           For ii As Integer = 0 To route.Count - 1
               ComboBox1.Items.Add(route(ii))
           Next

           dr.Close()

       End If



   End Sub

ولاحظ الفرق بين الكود السابق الذى كنت تستخدمه

وبعد الاستبدال

ملحوظة: بخصوص جدول (Analgesics) و (Antibiotics)

يجب ان يكون كلاهما ترتيبهم كما فى الصورة لديك وهو

0:ID
1:Ana/Ant 
2:Doses 
3:Routes

حيث ان التالى المقصود به عمود ( Antibiotics / Analgesics ) وهو الـ Name

كود :

dr.Item(1)

حيث ان التالى المقصود به عمود ( Doses ) والمقصود به Dose

كود :

dr.Item(2)

حيث ان التالى المقصود به عمود ( Routes ) والمقصود به Route

كود :

dr.Item(3)

اتمنى الصورة كاملاً وضحت لك

والكود هنا سيقوم باخد نتائج الاولى فقط لكلا من Doses و Routes وسيقوم بعرضها

حيث ان المدخل الاول فارغ لم يقوم بعرض اى شئ وتم عمل الكود بنائاً على الصورة

فيجب ان كلا من الجداول يتشابه النتائج للمدخل الاول...

ولضمان عرض نتائج الجدول بترتيب تصاعدى حيث من A:Z

اجعل كود الاستعلام بدلاً من 

كود :

select * from Analgesics

اجعله

كود :

select * from Analgesics ORDER BY ID ASC

وطبق ذلك ايضاً فى الاستعلام الاخر..

اتمنى ان الصورة مكتملة لك ومبسطة

تحياتى لك

وتمنياتى لك التوفيق