以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78780)
--  作者：yongxuanchen
--  发布时间：2015/12/17 0:04:00
--  报错

按钮代码：

DataTables("电梯信息表").Load
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("电梯信息表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & "*\'"
 \'   tbl.Filter = "出厂编号 Like " & txt  & " Or 使用单位 Like " & txt & " Or 额定载重量 Like " & txt & " Or 设备所在镇 Like " & txt       
     tbl.Filter = "出厂编号 Like " & txt  & " Or 使用单位 Like " & txt     
End If

 

搜索功能实现，但是，按下按钮后报错如下：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.2.1
错误所在事件：窗口,定期检验资料录入,CheckBox17,CheckedChanged
详细错误信息：
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 UserCode.A2jGaEon9R6HSNINi(ControlEventArgs e)
--  作者：Hyphen
--  发布时间：2015/12/17 9:44:00
--  
tbl.Filter = "出厂编号 Like \'%" & txt  & "%\' Or 使用单位 Like \'%" & txt  & "%\'"    
[此贴子已经被作者于2015/12/17 9:45:01编辑过]
--  作者：大红袍
--  发布时间：2015/12/17 9:53:00
--  

会不会是你table没有数据的时候，导致currentChanged事件出错？

 

If e.Table.Current Is Nothing Then return