0

我试图通过更新我的 SqlDataSource 上的 SelectCommand、清除 GridView，然后根据下拉列表中的值重新应用 GridView.DataBind() 来完成此操作。它不起作用，老实说，我对此完全陌生，所以我很可能只是做错了事。这是一些示例代码，可以让您了解我所拥有的：

Protected Sub drp_product_SelectedIndexChanged(sender As Object, e As EventArgs) Handles drp_product.SelectedIndexChanged

    grd_ingredientview.DataSource = Nothing
    grd_ingredientview.DataBind()
    SqlDataSource1.SelectCommand = "blah blah sample select command" + drp_product.SelectedValue
    grd_ingredientview.DataSource = SqlDataSource1
    grd_ingredientview.DataBind()

End Sub

同样，这不起作用，并引发错误，说：Both DataSource and DataSourceID are defined on 'grd_ingredientview'. Remove one definition.

对此的任何帮助，以及关于为什么这不起作用以及您的建议如何起作用的描述，我们将不胜感激。这个还是要学很多。谢谢！

4

1 回答 1

1

好吧，首先使用代码加载网格视图，然后您可以转储 datasoruce1。（只需将其从 Web 表单中删除）。（但如果出现提示，ANSWER NO 会重新创建字段并更新网格视图）。

所以是的，使用向导，让它创建该数据源。选择您的列。测试网格。好的，现在可以了。现在网格已经建好了？

然后从页面中删除 Datasource1。然后对于属性表，删除数据源设置。这个：

在此处输入图像描述

因此，现在我们从页面中删除了该 Datasource1 对象，以及指向该数据源的设置。

并用组合框做同样的想法。使用向导，甚至让它为组合框构建+添加数据源。再次删除数据源并再次删除组合框的数据源设置，就像我们对网格所做的一样。

所以，现在我们可以（并且将）自由地使用代码来填充数据网格。

因此，在页面加载时，一次（第一次）数据加载，我们可以这样做：

    If IsPostBack = False Then
        ' first time page load - display the grid.
        Call LoadGrid("")
        Call LoadCombobox
    End If

请注意，对于组合框？同样，您可以自由地使用向导来设置组合框，但再次删除该数据源设置，就像我们对网格所做的那样。

所以，现在我们所有的代码都是这样的：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    If IsPostBack = False Then
        ' first time page load - display the grid.
        Call LoadGrid("")
        Call LoadCombobox
    End If

End Sub

Sub LoadGrid(Optional strWhere As String = "")

    Dim strSQL As String = "SELECT * from tblHotels "
    If strWhere <> "" Then
        strSQL += " WHERE " & strWhere
    End If

    Me.GridView1.DataSource = Myrst(strSQL)
    Me.GridView1.DataBind()

End Sub

Sub LoadComboBox()
    Dim strSQL As String = "SELECT City from tblHotels GROUP BY City"

    Me.DropDownList1.DataSource = Myrst(strSQL)
    Me.DropDownList1.DataBind()

End Sub

Protected Sub DropDownList1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DropDownList1.SelectedIndexChanged

    Dim strWhere As String
    strWhere = "City = '" & DropDownList1.SelectedValue & "'"
    Call LoadGrid(strWhere)

End Sub

现在我唯一遗漏的部分是 MyRst()。它只是返回一个数据表。因此，您可以使用该代码（并将其放在标准代码模块中。

这样，您可以在您的应用程序中一遍又一遍地使用它，而不必一遍又一遍地创建连接对象和 sql 命令，直到您发疯为止。

这也意味着您只在代码中的一个位置使用/获取/获取连接字符串，因此在更改数据库时很容易更改它。

所以方便的花花公子例程可以节省您一遍又一遍地重写查询代码和连接对象是这样的：

Public Function Myrst(strSQL As String, Optional strCon As String = "") As DataTable

    ' this also allows one to pass custom connection string - 
    ' if not passed, then default

    If strCon = "" Then
        strCon = My.Settings.TestDatabase3
    End If

    Using mycon As New SqlConnection(strCon)

      Dim oReader As New SqlDataAdapter
      Dim rstData As New DataSet

      oReader.SelectCommand = New SqlCommand(strSQL, mycon)

      Try
        oReader.Fill(rstData)
        Return rstData.Tables(0)
      Catch
        Return Nothing
      End Try
  End Using

End Function

所以，有了上面这个简单的辅助例程，那么代码就很容易写了。事实上，我发现它的代码甚至比桌面代码甚至在 MS-Access 中编写代码都少。

所以上面的简单示例将从组合框中选择一个城市，然后过滤/设置网格以仅显示该城市。如果您愿意，您不必在页面加载时填充网格，因为用户即将选择组合框值。因此，只需在页面加载时注释掉 LoadGrid，并且仅在您进行组合（下拉列表）选择时调用它。

如前所述，不要忘记将下拉列表设置为 auto-post back = true。

总而言之？上面的代码不多，更不用说为桌面做这个，甚至在Access中做这个。

于 2020-09-17T20:04:40.917 回答