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)

将数据显示到文本框vb.net中

1 个答案: