主题：[求助]学习帮助文件“副本Table之行位置联动”这一节，当删除表A最后一行后出现错误信息，不知如何解决

学习帮助文件
此主题相关图片如下：1.png
这一节，两个代码都放了，当删除表A最后一行后出现如下错误信息

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

不知如何解决？

做个出错的例子发上来看一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

就是删除最后一行数据时会报错

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

谢谢大红袍老师！

再请教一下大红袍老师，代码“systemready = False”和“systemready = True”在这里面起什么作用呀？我把这两个代码删除后测试了一下，没出现报错

为了避免事件相互触发。

 

http://www.foxtable.com/help/topics/2218.htm

 

大红袍老师，还有一个问题向你请教，按你给的代码来编写，出现以下情况怎么处理：比如选择表A某行时，窗口上的table1表改行的行标就不显示。反过来选择table1表某行表A也是如此

加一句

 

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