Question

我有一个连接到VB 2010的数据库（MS Access）。搜索是一个文本框，它正在工作，它会过滤你在文本框中输入的内容但是当我删除我键入的内容时，datagrid会变为空白。每当我删除我搜索的内容时，我想在datagrid中再次显示所有记录。

这是我到目前为止所得到的。

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.TextChanged
    BotikaBindingSource.Filter = "[Product name] = '" & txtsearch.Text & "'"
End Sub

Answer 1

如果您的文本框为空，则需要为BindingSource调用RemoveFilter

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.TextChanged
    if string.IsNullOrWitheSpace(txtsearch.text) Then
        BotikaBindingSource.RemoveFilter 
    else
        BotikaBindingSource.Filter = "[Product name] = '" & txtsearch.Text  & "'"
    End If
End Sub

在数据库中搜索

1 个答案: