[求助]关于TEXTCHANGED中的代码出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师：
我在TEXTBOX1的Textchanged中加入如下代码，如录入[编号]及[公司简称]中没有的文字就出错，为何？？

with e.Form
    if e.sender.text <> "输入编码或名称查询" then
        Dim dst As WinForm.DataList = .Controls("DataList2")
        dst.DataTable = DataTables("客户名录")
        Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
        dst.RowFilter = "[编号] Like '* " & txb1.text & "*' or [公司简称] Like '* " & txb1.text & "*'"
    end if
end with

[此贴子已经被作者于2009-1-16 12:40:35编辑过]

主题：[求助]关于TEXTCHANGED中的代码出错