如何在 VB.Net 中使用 UserControl 和 FlowLayoutPanel 从 MySQL 创建自定义表?

Question

对不起，新手在这里。我想创建一个自定义表，该表使用UserControl和 VB.Net 中的For Each循环从MySQL数据库生成可滚动的FlowLayoutPanel上的记录。我自己尝试过，但它只显示了我在数据库中保存的三条记录中的最后一条记录。我知道我的 For Each 循环有问题，因为这是我第一次使用它。

Private Sub NewDisplay()
connect()
Dim cmd As New MySqlCommand
Dim conn As New MySqlConnection("host=localhost;username=root;password=;database=Database")
Dim Reader As MySqlDataReader
MD = "SELECT * From users"
cmd = New MySqlCommand(MD, con)
connect()
Reader = cmd.ExecuteReader
While Reader.Read
NewUserName = (Reader.Item("UserName").ToString)
NewUserID = (Reader.Item("UserID").ToString)
End While

Query = NewUserName & " " & NewUserID
Dim ListControl As EmployeeListControl = New EmployeeListControl
For Each Items In Query
ListControl.EmployeeName.Text = NewUserName
ListControl.EmployeeID.Text = NewUserID
FlowLayoutPanel1.Controls.Add(ListControl)
Next
End Sub

Answer 1

致谢 Jimi

While Reader.Read 
Dim listControl = New EmployeeListControl() 
listControl.EmployeeName.Text = Reader.Item("UserName").ToString() 
listControl.EmployeeID.Text = Reader.Item("UserID").ToString() 
FlowLayoutPanel1.Controls.Add(listControl) 
End While