从 SQL Server 搜索数据并显示到文本框和数据网格 VB.Net

Question

我想从 SQL Server 检索数据并显示到 Textbox 和 DataGrid。我希望将请求框中的数据显示到文本框中，并将 leftjoin 表显示在数据网格中。

 con.Open()
    cmd.Connection = con
    cmd.CommandText = "select * from requestbox left join requisitiondata on requisitiondata.requestdata_id = requisitiondata.requestdata_id where request_box = '" & txtsearch.Text & "'"

    cmd.ExecuteNonQuery()

    Dim TABLE As New DataTable

    With da
        .SelectCommand = cmd
        .Fill(TABLE)
    End With


    cbspayment.Text = ("spayment").ToString()
    cbsoption.Text = ("soption").ToString()
    txtto.Text = ("to1").ToString()
    txtsupplier.Text = ("supplier").ToString()
    txtterms.Text = ("terms").ToString()
    txtreference.Text = ("reference").ToString()
    txtfrom.Text = ("from1").ToString()
    txtcharge.Text = ("charge").ToString()

Answer 1

如果您只希望数据的某些列显示在网格中，那么您应该将所需的列添加到设计器中的网格中。您可以通过设置其DataPropertyName 来指定网格列应绑定到数据源中的哪一列。然后，如果需要，您也可以将数据绑定到网格和其他控件。举个例子：

1. 在您的表单中添加 DataGridView、BindingSource 和 TextBox。
2. 将单个文本框列添加到网格并将其DataPropertyName 设置为"Name"。
3. 为表单的Load 事件创建处理程序并添加以下代码：

Dim table As New DataTable

With table.Columns
    .Add("Name", GetType(String))
    .Add("Description", GetType(String))
End With

With table.Rows
    .Add("One", "First")
    .Add("Two", "Second")
    .Add("Three", "Third")
End With

BindingSource1.DataSource = table
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = BindingSource1
TextBox1.DataBindings.Add("Text", BindingSource1, "Description")

运行项目时，您将看到Name 列的数据显示在网格中，当您选择一行时，您将看到Description 列中的相应值显示在TextBox 中。无论您希望在网格中显示多少列，无论您有多少 TextBoxes 以及如何填充您的 DataTable，您都可以应用相同的原则。