以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报错  (http://foxtable.net/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