السلام عليكم ورحمة الله
اشكرك اخي 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() & ");
ارجوا بأن اكون قد وفقت ولو بشكل بسيط جدا في توضيحي هذا
واعتذر عن الاطالة أو ان كان هناك خطاء أو تقصير في الشرح
ولكم مني اجمل التحية .... السلام عليكم ورحمة الله
الكتاب و التطبيق بعد التعديل بالمرفقات
