主题：报错,却没有事件名称

TextChanged代码

Dim tns() As String = {"收入", "支出"}
For Each tn As String In tns
    Dim filter As String = "1=2"
    For Each dc As Col In Tables(tn).Cols
        filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
    Next
    Tables(tn).Filter = filter
Next