以文本方式查看主题

-  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=121352)
--  作者：huizhong
--  发布时间：2018/7/4 14:34:00
--  系统报错

老师

1- 我在一个窗口中添加了一个表控件，该控件的表作为副本，为了让副本与主表同步，我在窗口的表控件（副本）的CURRENTCHANGED中加入了如下代码：

 

Dim dr As DataRow = e.Table.Current.DataRow

Dim wz As Integer = Tables("项目基础表").FindRow(dr)

If wz >=0 Then

      Tables("项目基础表").Position = wz

End If

 

2- 我使用用户权限加载数据

 

当某个用户在上表中没有数据的时候，系统报错，您给指导下，看看需要加什么判断性的代码吗？
--  作者：有点甜
--  发布时间：2018/7/4 16:22:00
--  

加上红色代码

 

If e.Table.Current Is Nothing Then Return

Dim dr As DataRow = e.Table.Current.DataRow

Dim wz As Integer = Tables("项目基础表").FindRow(dr)

If wz >=0 Then

      Tables("项目基础表").Position = wz

End If