主题：系统报错

老师

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- 我使用用户权限加载数据

 

当某个用户在上表中没有数据的时候，系统报错，您给指导下，看看需要加什么判断性的代码吗？

加上红色代码

 

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