有人可以帮助我获取数据以显示在 DataGridView vb.net 中吗？答案

【问题标题】：Can someone assist me in getting data to display in a DataGridView vb.net?有人可以帮助我获取数据以显示在 DataGridView vb.net 中吗？
【发布时间】：2015-05-07 15:27:20
【问题描述】：

当我以不同的方式对该应用程序进行编程时，当我发布关于此问题的消息时运气不佳，因此我使用 DataAdapter 而不是 TableAdapter 方法重新编写了程序。

我需要帮助获取数据以显示在 vb.net 的 DataGridView 工具中我不确定我在这里做错了什么...数据显示在列表框中就好了。但不会显示在 DataGridView 工具中。 DataGridView 将显示字符串的长度。不确定为什么...请参阅下面的代码。（顺便说一句，我创建列表框只是为了测试目的，不想使用它）

程序的作用：用户在每个房屋项目（例如：水泥工程）上打勾，该项目将获得所选项目所需的工具列表。项目名称位于复选框中，checkChanged 事件将文本分配给 SQL 选择语句中的变量“ProjectName”。

Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim connection As OleDbConnection

    Dim cmdString As String = "Select Distinct ToolName,Notes From Tools Where ProjectName = '" & carpentry & "' or ProjectName = '" & cementWork & "' Or ProjectName= '" & dryWall & "' Or ProjectName = '" & electrical _
                & "' Or ProjectName = '" & HVAC & "' Or ProjectName = '" & laminateFlooring & "' Or ProjectName = '" & painting & "' Or ProjectName = '" & plumbing _
                & "' Or ProjectName = '" & texture & "' Or ProjectName = '" & tileWork & "' Or ProjectName = '" & vinylFlooring & "'"

    connection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SaintEnterprises.mdb")


    Dim adapter As New OleDbDataAdapter(cmdString, connection)

    Dim tools As New DataSet

    connection.Open()

    adapter.Fill(tools)

    Dim toolslist As New List(Of String)


    ListBox1.Items.Clear()

    For Each row As DataRow In tools.Tables(0).Rows

        Dim s As String = row("toolname").ToString

        'toolslist.Add(row("toolName").ToString) 'Does same thing as line toollist.add(s) below


        toolslist.Add(s.ToString) 'add to List

        ListBox1.Items.Add(s.ToString) 'Displays the type of tools based on the query. 


    Next

    ToolsDataGridView.DataSource = toolslist 'displays the length (Total # of letters) of each toolname'

End Sub

虽然我可能不会再使用 Table Adapter 来做这件事，但如果您想了解我使用 TableAdapter 对这个应用程序进行编程的方式，请查看此链接。

【问题讨论】：

标签： vb.net datagridview dataadapter

【解决方案1】：

我认为您需要一个 DataTable 来填充您的 DataGridView。将您的 DataSet-Rows 转换为 DataTable。

我已经尝试过了，这对我来说效果很好（假设您的数据库连接正常）。

Dim oData As New System.Data.DataTable

For Each oRow As System.Data.DataRow In tools.Tables(0).Rows
    oData.ImportRow(oRow)
Next

ToolsDataGridView.DataSource = oData

【讨论】：