我的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
加好友 
发短信
Post By：2016/6/6 15:52:00 [显示全部帖子]
