Question

VB.NET多个文本框显示多行数据

取数据表的一个列，如果这列有5行，就在窗体上动态显示5个文本框，

然后文本框1显示第一行，文本框2显示第二行，以此类推。

这样的如何实现。

数据库连接字符串

Public connstrs As String = "User ID=" & m_strUserID & ";Password=" & m_strPasswords & ";database=" & m_strCatalog & ";server=" & m_strDatasource & ""
Public mycon As New SqlConnection(connstrs)

Answer 1

Dim mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的，自己看着调
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象
End While

'未经过运行，自己调试看看能否OK

追问

只显示了一个文本框 这个文本框只加载了一行数据

Answer 2

lines=dr["aaa"].split(vbCrLf)
for i as integer =0 to lines.length -1
    dim newTextBox= new TextBox()
    newTextBox.width=333
    newTextBox.width=height
next
parentControl.addChild(newTestBox)