专家坐堂-[讨论]出现下面警告错误不知道哪里有问题？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]出现下面警告错误不知道哪里有问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74419)

--  作者：twef
--  发布时间：2015/9/10 14:28:00
--  [讨论]出现下面警告错误不知道哪里有问题？

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

此主题相关图片如下：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

--  作者：大红袍
--  发布时间：2015/9/10 15:24:00
--

If Forms("主窗口").Opened Then \'如果窗口已经打开
    If e.Table.Current Is Nothing Then Return
    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