Выберите и заполните текстовые поля, а затем перейдите к следующему из (I = to rowcount -1)

---

Привет,

Мне бы очень хотелось сжать свой код, и я подумал, что все это хорошо после просмотра многих предыдущих обсуждений.

Мой проект ищет базу данных и выполняет подсчет строк. Затем он извлекает два необходимых поля информации (EmployeeName, EmployeeNumber).

Есть ли причина, по которой приведенный ниже код не работает?

For i As Integer = 0 To RowsCount - 1
       Me.Controls("Me.tbxEmployeeName" & (i + 1).ToString).Text = LoadDataSet.Tables("Getting Info").Rows(i).Item("FullName")
       Me.Controls("Me.tbxEmployeeNumber" & (i + 1).ToString).Text = LoadDataSet.Tables("Getting Info").Rows(i).Item("EmployeeNumber")

"Я.Контроль." раздел не работает, потому что, когда я назначаю имя текстового поля, оно извлекает правильную информацию из базы данных.

Что я уже пробовал:

Dim LoadSQL As String = "SELECT * FROM qryLocationPayrollList"
Dim LoadAdapter As New OleDbDataAdapter(LoadSQL, conIeam)
Dim LoadDataSet As New DataSet
Dim RowsCount As Integer

        If conIeam.State = ConnectionState.Closed Then
            conIeam.Open()
            LoadAdapter.Fill(LoadDataSet, "Getting Info")
            RowsCount = LoadDataSet.Tables("Getting Info").Rows.Count
            If RowsCount < 1 Then
                MessageBox.Show("No Reocrds Available", "SE-HUB Message Manager")
                LoadDataSet.Reset()
                conIeam.Close()
            Else
                For i As Integer = 0 To RowsCount - 1

                    Me.Controls("Me.tbxEmployeeName" & (i + 1).ToString).Text = LoadDataSet.Tables("Getting Info").Rows(i).Item("FullName")
                    Me.Controls("Me.tbxEmployeeNumber" & (i + 1).ToString).Text = LoadDataSet.Tables("Getting Info").Rows(i).Item("EmployeeNumber")

                Next
            End If
            LoadDataSet.Reset()
            conIeam.Close()
        End If

---