通过消除除 seacrhed 行之外的所有其他行,通过文本框在已填充的列表视图中搜索

Search in already filled listview through textbox by eliminating all other rows except seacrhed row

我已经从 DataTable dt4 填充了 ListView。我已经全局声明,下面是我的代码,但代码没有给出搜索到的字符串,而是在任何按键上再次加载它。

请帮我写代码

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    conn = GetConnect()
    conn.Open()
    
    dt4.Select("ServiceName like '%" + TextBox1.Text + "%' ")

    With ListView3
        .View = View.Details
        .GridLines = True
        .Columns.Clear()
        .Items.Clear()
        .Columns.Add(" ", 30)
        .Columns.Add("CPT Code", 80, HorizontalAlignment.Left)
        .Columns.Add("Service Name", 350, HorizontalAlignment.Left)

        For Each row As DataRow In dt4.Rows
            'Add Item to ListView.
            Dim item As ListViewItem = New ListViewItem
            item.SubItems.Add(row("CPTCode").ToString())
            item.SubItems.Add(row("ServiceName").ToString())                
            item.Checked = False
            .Items.Add(item)
            item = Nothing
        Next
    End With

End Sub

Select 的结果应该有您要查找的行

Dim rows = dt4.Select("ServiceName like '%" + TextBox1.Text + "%' ")

For Each row As DataRow In rows

来自 DataTable.Select