Foxtable(狐表)用户栏目专家坐堂 → [求助]筛选问题


  共有1849人关注过本帖树形打印复制链接

主题:[求助]筛选问题

帅哥哟,离线,有人找我吗?
堕落的后天
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:1431 威望:0 精华:0 注册:2017/8/4 14:17:00
[求助]筛选问题  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/28 14:16:00 [只看该作者]

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

 

If e.Table.Current Is Nothing Then Return


 回到顶部
帅哥哟,离线,有人找我吗?
堕落的后天
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:1431 威望:0 精华:0 注册:2017/8/4 14:17:00
  发帖心情 Post By: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


谢谢  确实是这里出错了

 回到顶部