我编写了一个通用的VB.net子例程，该子例程用查询结果填充数据网格。子例程strQuery作为一个参数，它是一个字符串，可以转换为任何有效的SQL Server视图或返回记录集的存储过程。除此之外，SQL代码没有任何限制，并且发送两个具有完全不同的字段概要文件的查询是有效的主张。

为了使其正常工作，我必须彻底清除数据网格中以前存在的所有数据集，从而允许控件删除其先前的标识并重新开始，从而允许从头开始使用新的日期集来重新定义控件的内容。

我终于解决了这个问题。也许我应该提到我正在使用Visual Studio 2010，并且如果Hersey使用的是更高版本，那么对他有用的代码可能对我无效。对我的代码所做的更改是另一行：将名称和datapropertyname都设置为相同的名称。我注意到当我查看列视图时，我注意到datapropertyname是表如何链接到源的名称，而该名称是该字段的有效别名，它是如何呈现的。显然，为了清楚起见，两者必须相同！现在，它可以像宣传的那样工作。 谢谢，〜彼得·费伯

Private Sub Form1_Load(sender As System.Object,e As System.EventArgs) Handles MyBase.Load
    Dim con As New SqlConnection("<Enter Connection string here>")
    Dim rcd As ADODB.Recordset = ReturnRecordset("Select * From ExcludeWords")
    Call DefineDataGrid("Select * From ExcludeWords")
End Sub

Private Sub btnUpdate_Click(sender As System.Object,e As System.EventArgs) Handles btnUpdate.Click
    Call DefineDataGrid("Select * From FindWords")
End Sub

Sub DefineDataGrid(ByVal strQuery As String)
    Dim con As New SqlConnection("<Enter Connection String Here>")
    Dim dt As New DataTable

    FindWordGrid.Columns.Clear()
    FindWordGrid.DataSource = Nothing

    Dim rcd As ADODB.Recordset = ReturnRecordset(strQuery)

    Dim MyField As ADODB.Field

    Dim iCount As Integer = -1
    FindWordGrid.ColumnCount = rcd.Fields.Count
    For Each MyField In rcd.Fields
        iCount = iCount + 1
        FindWordGrid.Columns(iCount).Name = MyField.Name
        FindWordGrid.Columns(iCount).DataPropertyName = MyField.Name
    Next

    Dim cmd As New SqlCommand(strQuery,con)
    Dim da = New SqlDataAdapter(cmd)
    da.Fill(dt)
    FindWordGrid.DataSource = dt
End Sub

Function ReturnRecordset(strQuery As String) As ADODB.Recordset
    Dim con As ADODB.Connection = "<Enter Connection string here>"

    ReturnRecordset = New ADODB.Recordset
    ReturnRecordset.Open(strQuery,con)
End Function

我的设置易于复制：我使用的数据集在每个相应的表中只有少量记录。唯一的限制是各个运行必须具有不同的字段配置文件。在一天中的大部分时间里，我一直在尝试不同的技术，现在我认为最好是在该主题上获得一些新的灰色物质。对我来说，正确地完成此过程是我要发表的重要演讲中的最后一个主要障碍，这是我游说工作角色的最后一个障碍。预先感谢您的评论，想法和想法。
真诚的〜彼得·费伯（Peter Ferber）