[princelovelorn]

السلام عليكم ورحمة الله وبركاته
جرب الأكواد التالية أخي
في FormSemester1 و FormSemester2 اضف الدالة التالية

كود :

Public Sub UpdateClassroomCombo(selectedClassName As String)
   Combroom.Items.Clear()

   Dim Sql_Str As String = "SELECT DISTINCT Classroom FROM TBL_SClassroom WHERE ClassName = @ClassName"
   Using cmd As New OleDbCommand(Sql_Str, Con)
       cmd.Parameters.AddWithValue("@ClassName", selectedClassName)
       Using adapter As New OleDbDataAdapter(cmd)
           Dim dt As New DataTable()
           adapter.Fill(dt)
           For Each row As DataRow In dt.Rows
               Combroom.Items.Add(row("Classroom").ToString())
           Next
       End Using
   End Using
End Sub

وفي FormMin اضف الدالة التالية

كود :

rivate Sub ListBoxClas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxClas.SelectedIndexChanged
   Dim selectedClass As String = ListBoxClas.SelectedItem?.ToString()
   If String.IsNullOrEmpty(selectedClass) Then Return

   Dim f1 = Application.OpenForms().OfType(Of FormSemester1)().FirstOrDefault()
   If f1 IsNot Nothing Then
       f1.UpdateClassroomCombo(selectedClass)
   End If

   Dim f2 = Application.OpenForms().OfType(Of FormSemester2)().FirstOrDefault()
   If f2 IsNot Nothing Then
       f2.UpdateClassroomCombo(selectedClass)
   End If
End Sub

---

(22-04-25, 08:33 PM)مصمم هاوي كتب : بارك الله فيكم تم حلَّ المشلكة بهذا الكود

في الفورم الرئيسي

كود :

Dim frm As New FormSemester1 : frm.MdiParent = Me : frm.Show() : frm.fillcmb_TBL_Classroom()

وفي الفورم تم إنشاء صب

كود :

Public Sub fillcmb_TBL_Classroom()
        If FormMin.ListBoxClas.SelectedItem IsNot Nothing Then
            Me.Combroom.Items.Clear()
            Dim Sql_Str As String = "SELECT DISTINCT Classroom From TBL_SClassroom Where ClassName = '" & FormMin.ListBoxClas.Text() & "'"
            Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter(Sql_Str, Con)
            Dim InfoTable As DataSet = New DataSet
            InfoTable.Clear()
            InfoAdapter.Fill(InfoTable, "TBL_SClassroom")
            For Each rw As DataRow In InfoTable.Tables("TBL_SClassroom").Rows
                Me.Combroom.Items.Add(rw(0).ToString())
            Next
        Else
            MessageBox.Show(" عفواً ، يجب اختيـار فصـل دراســي", "تنبيــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
        End If
    End Sub

الحمد لله أنك توصلت لحل المشكلة
وجزاك الله خيرا على مشاركتك للحل