以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]筛选问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105868)
--  作者：堕落的后天
--  发布时间：2017/8/28 12:54:00
--  [求助]筛选问题
筛选有的项目正常

筛选没有的项目时跳出如下信息

（窗口中的tables  是作为副本形式的）

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.8.3.1
错误所在事件：收费明细,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。


代码如下

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


Dim tbl As Table = Tables("病人收费_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "病历号 Like " & txt & " Or 患者姓名 Like " & txt 
End If
--  作者：有点甜
--  发布时间：2017/8/28 14:16:00
--  

你事件 CurrentChanged 事件有问题。在前面加上

 

If e.Table.Current Is Nothing Then Return
--  作者：堕落的后天
--  发布时间：2017/8/28 15:36:00
--  
If e.Table.Current Is Nothing  Then 
Return
End If
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("收费明细").FindRow(dr)
If wz >=0 Then
    Tables("收费明细").Position = wz
End If


谢谢  确实是这里出错了