如何在一系列文本框中显示多个结果？

Question

我在将多个数据填充到多个文本框时遇到问题。我附上了一个项目链接，以便你们可以得到图片。

提前非常感谢！我不是程序员。 ：）

编辑：继承人代码

` Dim con As MySqlConnection = New MySqlConnection("data source=localhost; user id=root; password=dctvmainadmin; database=tmsdctv")
    Dim query As String = "SELECT * FROM recordedattendance WHERE empno = '00111' and dateattended = '2014-02-03 Mon'"
    Dim reader As MySqlDataReader
    Dim result As New System.Data.DataTable

    con.Open()
    Dim Cmd_Read_Name As New MySqlCommand(query)
    Cmd_Read_Name.Connection = con
    result.Load(Cmd_Read_Name.ExecuteReader)

    With Me
        For Each dtrow As DataRow In result.Rows
            .lblEmpno.Text = dtrow(0)
            .lblDate1.Text = dtrow(1)
            .txtTimeIn1.Text = dtrow(2)
            .txtTimeOut1.Text = dtrow(3)
        Next
        con.Close()
    End With`

Answer 1

尝试这样：

指定文本框标签，例如：

lblEmpno1，lblEmpno2，lblEmpno3 ..，lblDate1，lblDate2，lblDate3 ....，      txtTimeIn1，txtTimeIn2，txtTimeIn3 ...，txtTimeOut1，txtTimeOut2，txtTimeOut3 ....

 Dim con As MySqlConnection = New MySqlConnection("data source=localhost; 
 user id=root; password=dctvmainadmin; database=tmsdctv")
    Dim query As String = "SELECT * FROM recordedattendance WHERE empno
    = '00111' and dateattended = '2014-02-03 Mon'"
    Dim reader As MySqlDataReader
    Dim result As New System.Data.DataTable

    con.Open()
    Dim Cmd_Read_Name As New MySqlCommand(query)
    Cmd_Read_Name.Connection = con
    result.Load(Cmd_Read_Name.ExecuteReader)

       For xi as integer=0 to result.Rows.Count-1
            Controls("lblEmpno" & xi+1  &).Text  .Text = result.Rows(xi).Item(0)
            Controls("lblDate" & xi+1  &).Text = result.Rows(xi).Item(1)
            Controls("txtTimeIn" & xi+1  &).Text = result.Rows(xi).Item(2)
            Controls("txtTimeOut" & xi+1  &).Text = result.Rows(xi).Item(3)
        Next
        con.Close()