- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]学习帮助文件“副本Table之行位置联动”这一节，当删除表A最后一行后出现错误信息，不知如何解决 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74110)
-- 发布时间：2015/9/2 14:47:00
-- [求助]学习帮助文件“副本Table之行位置联动”这一节，当删除表A最后一行后出现错误信息，不知如何解决
学习帮助文件
此主题相关图片如下：1.png
这一节，两个代码都放了，当删除表A最后一行后出现如下错误信息
此主题相关图片如下：2.png
不知如何解决？
[此贴子已经被作者于2015/9/2 15:39:42编辑过]
-- 发布时间：2015/9/2 15:17:00
--
做个出错的例子发上来看一下。
-- 发布时间：2015/9/2 15:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
就是删除最后一行数据时会报错
-- 发布时间：2015/9/2 16:13:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/9/2 16:22:00
--
谢谢大红袍老师！
-- 发布时间：2015/9/2 16:31:00
--
再请教一下大红袍老师，代码“systemready = False”和“systemready = True”在这里面起什么作用呀？我把这两个代码删除后测试了一下，没出现报错
-- 发布时间：2015/9/2 16:39:00
--
为了避免事件相互触发。
http://www.foxtable.com/help/topics/2218.htm
-- 发布时间：2015/9/2 17:05:00
--
大红袍老师，还有一个问题向你请教，按你给的代码来编写，出现以下情况怎么处理：比如选择表A某行时，窗口上的table1表改行的行标就不显示。反过来选择table1表某行表A也是如此
-- 发布时间：2015/9/2 17:20:00
--
加一句
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