Question

我是VB.Net和Window Forms的新手。我正在对表进行过滤，以便在搜索机器中输入的单词可用于显示仅相关的信息（行）。我会在展示代码后解释我的情况：

Private Sub findTextBox2_TextChanged(sender As Object, e As EventArgs) Handles findTextBox2.TextChanged

        Dim viewPerson As DataView
        viewPerson = New DataView(Data.ds.Tables("PersonInfos"))

        If Not String.IsNullOrEmpty(Me.findTextBox2.Text) Then
            Dim person As String = FilterListBox("PersonInfos", Me.findTextBox2.Text)
            viewPerson.RowFilter = "ID in (" & person & ") "
        Else
            viewPerson.RowFilter = ""
        End If

        DataGridView2.DataSource = viewPerson 

        con.Close()

    End Sub

在此过滤之后，所有信息（所有列）都在表格中＃34; PersonInfos＆＃34;将会展示。如果我只想要＆＃34;姓氏＆＃34;，＆＃34;年龄＆＃34;和＆＃34;国籍＆＃34;来自表（在.mdb文件中）仅显示。我应该在代码中包含什么。

我在线搜索，并没有找到解决问题的方法。任何帮助都感激不尽。提前谢谢。

这就是FilterListBox方法中的内容：

Private Function FilterListBox(ByVal TableName As String, ByVal tbText As String) As String

        Dim IDs As String = String.Empty
        If tbText.Contains("*") Then

            If Not tbText.StartsWith("*") Then
                tbText = "^" + tbText
            End If

            tbText = tbText.Replace("*", ".*")
            If tbText.Contains("?") Then
                tbText = tbText.Replace("?", ".")
            End If

            For Each row As DataRow In data.ds.Tables(TableName).Rows
                If System.Text.RegularExpressions.Regex.IsMatch(row.Item("Name"), tbText, System.Text.RegularExpressions.RegexOptions.IgnoreCase) Then
                    If IDs <> "" Then IDs &= ","
                    IDs &= row.Item("ID")
                    Dim dfd As String = row.Item("Name").ToString()

                    Dim a As Boolean = System.Text.RegularExpressions.Regex.IsMatch(row.Item("Name"), tbText, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
                End If
            Next
        Else
            For Each row As DataRow In data.ds.Tables(TableName).Rows
                If row.Item("Name").ToString.StartsWith(tbText, StringComparison.CurrentCultureIgnoreCase) Then
                    If IDs <> "" Then IDs &= ","
                    IDs &= row.Item("ID")
                    Dim dfd As String = row.Item("Name").ToString()

                    Dim a As Boolean = System.Text.RegularExpressions.Regex.IsMatch(row.Item("Name"), tbText, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
                End If
            Next
        End If
        If IDs <> "" Then
            Return IDs
        Else
            Return "1=2"
        End If

    End Function

Answer 1

试试这个

Dim viewPerson As DataView
Dim da As New OleDbDataAdapter 
Dim tbl as New DataTable


da = New OleDbDataAdapter("SELECT Last Name, Age, Nationality FROM PersonInfos", con)       
da.Fill(tbl)

viewPerson = New DataView(tbl)

如何过滤DataGridView并进行管理？

1 个答案: