如何根据 FieldName 显示数据 - Access答案

【问题标题】：How to display data depending on FieldName - Access如何根据 FieldName 显示数据 - Access
【发布时间】：2016-03-25 17:53:46
【问题描述】：

我有它，所以有一个组合框，它的选择称为我的数据库的字段名。我想要它，所以当您选择“SalesCustomers”并按下搜索按钮时，它将显示所有勾选了“Salescustomer”字段名称的客户（AKA 处于真实状态），否则会抛出错误，说明没有 salescustomer 成员。我有它，所以它会根据 id 显示所有客户端，但我现在想要这样。下面是我的数据库和代码的截图。

代码：

Private Sub Interest(ByVal ans As String)
    If con.State = ConnectionState.Closed Then con.Open()
    cmd = New OleDbCommand
    cmd.Connection = con
    cmd.CommandText = "Select * FROM tbl WHERE ID = ?"
    cmd.Parameters.Add("?", OleDbType.VarChar).Value = ans
    Dim reader As OleDbDataReader = cmd.ExecuteReader()
    If reader.Read() Then
        TxtCI.Text = reader(0).ToString()
    Else
        MsgBox("No interest", MsgBoxStyle.Critical, "Please reselect")
    End If
    con.Close()
End Sub

【问题讨论】：

你描述的是过滤器，但显示的方法表示搜索？
所以我需要一个过滤器来使用它？我希望使用的代码是上面的代码，因为我使用上面的代码来搜索使用 CustomerID 的客户。过滤器的代码是什么？在 D 之前从未对过滤器做过任何事情：
好吧，我不知道这就是我问的原因。您是在尝试查找特定类型的特定客户，还是尝试修改视图以显示该类型的所有客户？
我需要显示所有勾选了“SalesCustomer”的客户。因此，当我添加一个客户并勾选 salescustomer 时，我创建了 5 个和 5 个 businesscustomer，我从组合框中选择了 salescustomer，我希望它只显示 salescustomer。
不，这就是 Steve、jmcilhinney 和我几天来一直试图告诉您的：如果您花时间设置 DataAdapter 和相关对象，您拥有的大部分代码都会消失。如果添加 BindingNavigator，即使是那些小的 Move.. 按钮

标签： .net database vb.net data-binding

【解决方案1】：

根据之前的问题，我知道您在某处有一个 DataTable 和一个 BindingSource。如果目的是让用户能够仅查看“SalesCustomer”类型，请使用过滤器：

bsCust.Filter = "SalesCustomer = True"

过滤器目标为文本的其他情况：

Dim FishFilter = ""
If cboFishFilter.SelectedIndex > 0 Then
    FishFilter = String.Format("Fish = '{0}'", cboFishFilter.Text)
    ' e.g.: "Fish = 'Perch'"
End If

' or via a BindingSource:
bsHdr.Filter = FishFilter
' can also use DataView.RowFilter:
dvHdr.RowFilter = FishFilter

如何应用它取决于您使用的对象。这允许/假设列表中的第一项是“（无）”或类似的，以便有一种方法可以删除任何过滤器。在这种情况下，FishFilter 保持为空字符串并清除过滤器。

我喜欢将它放在“应用”按钮上，这样用户就可以打开列表并查看它，而不会意外应用过滤器。

【讨论】：

再次感谢 Plutonix！