主题：[求助]关于窗口自定义录入问题

 

老师,我按照帮助文件做了一个自定义录入界面.见截图,

 

,

 

将TextBox1的TextChanged事件代码设为:

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("窗口1_Table1")

If txt = "" Then

    tbl.Filter = ""

Else

    txt = "'*" & txt & "*'"

    tbl.Filter = "客户 Like " & txt & " Or 下单时间 Like " & txt & " Or 订单编号 Like " & txt & " Or 合同号 " & txt & " Or 品名及货号 Like " & txt

End If

 

 

但不知道什么地方有错.在文本框里不能输入文字.一输入就跳掉,见截图.现求助老师给看一看