[KH_Alaswad]

السلام عليكم ورحمة الله

اشكرك اخي Adrees على مرورك

لقد ارفقت الفورم الذي يحتوي على المشكلة ... فهناك فورم به اسناد مادة لمعلم 

اي تختار المعلم ثم تعطيه او تسند له المادة المكلف بها

لهذا تجد في الجدول وجود فرغات لارقام المعلمين

بعد طرحي لهذا الموضوع بقيت اراجع ما كتبت من اكواد وجدت أن هناك نواقص تتمثل في الاتي

1 - اضفت حقل بجوار حقل رقم المعلم في جدول المواد باسم chosetoteacher نوع البيانات (نعم / لا)

لكي نضيف شرط في الاستعلام الخاص بتعبئة الكمبوبوكس بالمواد الدراسية بــ ( المادة المختارة للمعلم ) كالتالي 

 'لتحميل المواد الدراسية في كل كومبوبوكس

    Sub Load_obj_data(ByVal Coomboo As ComboBox)

        Try

            Dim dta1 As DataTable = New ADL().SelectDataTable("SELECT objects.obj_name, objects.num_teacher FROM objects where chosetoteacher=True and objects.ID_lev=" & ComboBox7.SelectedValue.ToString)

            Coomboo.DataSource = dta1

            Coomboo.DisplayMember = dta1.Columns(0).ColumnName

            Coomboo.ValueMember = dta1.Columns(1).ColumnName

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

ونستفيد من هذه الخطوة ان نعرض المواد المسندة فقط

2 - عدم ظهور اسم المعلم في المكان المراد له ... حيث اريد ان يظهر اسم المعلم الذي يوجد رقمه في جدول المواد 

هذه هي المشكلة الاساسية , بعد البحث الطويل توصلت الى ما يعرف بالاستعلام الفرعي

الذي تكون صيغته كالتالي :

;(Select columnA, columnB from Table_Name where columnC IN(Subquery

ليكون الاستعلام المناسب لتطبيقنا هو كالتالي :

SELECT teachers.teach_name FROM teachers WHERE teachers.num_teacher in (SELECT objects.num_teacher FROM objects WHERE objects.num_teacher=" & ComBBox.SelectedValue.ToString() & ");

ارجوا بأن اكون قد وفقت ولو بشكل بسيط جدا في توضيحي هذا 

واعتذر عن الاطالة أو ان كان هناك خطاء أو تقصير في الشرح

ولكم مني اجمل التحية .... السلام عليكم ورحمة الله

الكتاب و التطبيق بعد التعديل بالمرفقات