[مصمم هاوي]

نصيحة بجمل
1. تخزين القيم في متغيرات قبل الدخول للحلقة:

Dim C As Integer = FormMin.ListBoxClas.SelectedIndex
Dim R As Integer = Me.Combroom.SelectedIndex
Dim S As String = CombSemester.Tex

2. ' تخزين القيم في مصفوفة قبل الدخول للحلقة

Dim valuesArray(dt.Rows.Count - 1, 3) As Object
For i As Integer = 0 To dt.Rows.Count - 1
   valuesArray(i, 0) = dt.Rows(i).Item(0).ToString
   valuesArray(i, 1) = dt.Rows(i).Item(1).ToString
   valuesArray(i, 2) = dt.Rows(i).Item(2).ToString
   valuesArray(i, 3) = dt.Rows(i).Item(3).ToString
Next