通过消除除 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 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