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

各位老师：
我在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

具体问题具体分析，问虽然这段代码不太完美，但是你的问题不一定出在这里，而是在DataList2的CurrentChanged事件中，错误提示已经告诉你了

一边看帮助一边学习别人的作品，自己搬过来学的，不好意思。


如上是文件，老爸帮看看

我在 DataList2的CurrentChanged事件中加的是如下代码：

Dim dst2 As WinForm.DataList = e.Form.Controls("DataList2")
Dim dst3 As WinForm.DataList = e.Form.Controls("DataList3")
Dim dr2 as DataRow = dst2.Current '获得选定行
dim str as string = dr2("公司简称")
    dst3.Filter ="[客户]  = '" & str & "'"
dst3.ColumnList = "|工作单号|业务员|客户|合约号|船公司|货代公司|起运港|目地港|柜量|海运|散货|空运|报关|拖车|买单|"
dst3.ColumnWidth = "80|50|70|80|70|80|60|70|80|30|30|30|30|30|30|"
dst3.sort = "工作单号"
dst3.Build()


另：
我设置了COLUMNWIDTH，第一次列宽是对的，多几次就不对了？？

偶没发现问题。

既然是固定绑定到某一表，为何要在textbox1控件的TextChanged中来绑定。
宽度不对应该是ColumnList 和ColumnWidth设置不等引起的，以前我有碰到过。

Czy版主，麻烦看看客户面版中的TEXBOX1,真的是一录入就报错，textbox1控件的TextChanged绑定我也取销了，
但还是出错，不知何故。

万分感谢。