主题：[讨论]出现下面警告错误不知道哪里有问题？

 请教出现下面错误不知道哪里有问题？

此主题相关图片如下：13.png

项目情况登记表里的currentchanged 代码如下：

If Forms("主窗口").Opened Then '如果窗口已经打开
    If e.Table.Current Is Nothing Then Return
Else
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("主窗口_Table1").FindRow(dr)
    If wz >=0 Then
        systemready = False
        Tables("主窗口_Table1").Position = wz
        systemready = True
        Tables("主窗口_Table1").Refresh
    End If
End If