08-05-25, 07:51 AM
نصيحة بجمل
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
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
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ

