將數據顯示到文本框vb.net

Question

如何將數據庫中的結果顯示到文本框中，以及結果是否超過1鍵，以進行上下預覽

 con = New SqlConnection(cs)
con.Open()
Dim sql As String = " Select RTRIM(visit.regdate),RTRIM(Patientno) from visit where visit.accno =@d6 "
cmd = New SqlCommand(sql, con)
cmd.Parameters.AddWithValue("d6", accno.Text)
rdr = cmd.ExecuteReader()

While (rdr.Read() = True)

    regdate.Value = rdr.GetValue(0)
    patientno.Text = rdr.GetValue(1)

End While

Answer 1

您必須使用列表框而不是文本框來放置數據，這是一個示例：

ListBox1.ColumnCount = 3 
ListBox1.Columnwidths = "100,100,100" 
ListBox1.AddListItem("row1 col1", 1,1) 
ListBox1.AddListItem("row1 col2", 1,2)
ListBox1.AddListItem("row2 col2", 2,2)