主题：求教关于“文本框查寻”事件。

写错了

Dim tnames() As String = {"工作页_Table1", "工作页_Table2"}
With e.Form
    If e.sender.text <> "有事找我呀!" Then
        For Each tname As String In tnames
            Dim dst As Table = Tables(tname)
            Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
            Dim filter As String = "1=2"
            For Each dc As DataCol In dst.DataTable.DataCols
                filter &= " or convert(" & dc.Name & ",'System.String') like '%" & txb1.text & "%'"
            Next
        Next
        dst.Filter = filter
       
    End If
End With

老大还一点说：

编译错误：未声明名称“dst”.

错误代码：dst,filter =filter

如下

Dim tnames() As String = {"工作页_Table1", "工作页_Table2"}
With e.Form
    If e.sender.text <> "有事找我呀!" Then
        For Each tname As String In tnames
            Dim dst As Table = Tables(tname)
            Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
            Dim filter As String = "1=2"
            For Each dc As DataCol In dst.DataTable.DataCols
                filter &= " or convert(" & dc.Name & ",'System.String') like '%" & txb1.text & "%'"
            Next

            dst.Filter = filter
        Next
    End If
End With

老大可以了。感谢，我一定好好学习，天天向上的。