- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求大师指点 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85949)
-- 发布时间：2016/6/6 15:52:00
-- 求大师指点
我的qrtrou表在表事什AfterSelChange的代码
If Tables("qrymyf.qrtrou").Rows.Count = 0 Then
Return
Else
If Tables("qrymyf").Current.Locked = True Then
Return
Else
If User.Group = "经理" Then
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
Case "uyhmhg","ujwretjg","esmquduk"
e.Table.StartEditing()
End Select
End If
End If
End If
If Tables("qrymyf.qrtrou").Rows.Count = 0 Then
Return
Else
If Tables("qrymyf").Current.Locked = True Then
Return
Else
If User.Group = "纸样师" Then
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
Case "uyhmhg","ujwretjg","esmquduk"
e.Table.StartEditing()
End Select
End If
End If
End If
打开窗口,点击筛选就
有这样的提示:
有这样的提示:
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.5.13.1
错误所在事件：qrtrou,AfterSelChange
详细错误信息：
未将对象引用设置到对象的实例。
谢谢指点!!!
此主题相关图片如下：图片.jpg
-- 发布时间：2016/6/6 16:11:00
--
在最前面加上代码
If Tables("qrymyf").Current Is Nothing Then Return
-- 发布时间：2016/6/6 21:16:00
--
谢谢大师指点!!!