- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]table和副本table联动的定位问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74327)
-- 发布时间：2015/9/8 16:09:00
-- [求助]table和副本table联动的定位问题
问题：1.主窗口里是table，模式窗口是副本table；
2.已经设定了table 和 副本table的双向联动；
3.设定了主窗口table双击事件打开模式窗口
4.双击的时候，模式窗口的副本talbe还没有生成，所以联动无效
求助：如何让模式窗口打开的时候，副本talbe的当前行，等于table的当前行。
此主题相关图片如下：联动1.png
此主题相关图片如下：联动2.png
[此贴子已经被作者于2015/9/8 16:09:27编辑过]
-- 发布时间：2015/9/8 16:12:00
--
afterLoad事件，写定位的代码
Dim idx As Integer = Tables("副本表").FindRow(Tables("主表").Current.DataRow)
Tables("副本表").Position = idx
-- 发布时间：2015/9/8 16:18:00
--
修改代码后，问题仍然没有解决，我的afterload里还有个筛选，不知道有影响没
Dim r As Row = Tables("龙源宝藏").current
Tables("游戏个人数据_龙源宝藏").Filter = "学生编号 = \'"& r("学生编号") &"\'"
Dim idx As Integer = Tables("游戏个人数据_龙源宝藏").FindRow(Tables("龙源宝藏").Current.DataRow)
Tables("游戏个人数据_龙源宝藏").Position = idx
此主题相关图片如下：联动3.png
-- 发布时间：2015/9/8 16:22:00
--
大神是否可以加个qq，远程指点一下？
qq：6824498
-- 发布时间：2015/9/8 16:22:00
--
代码没问题，请认真测试。
-- 发布时间：2015/9/8 16:33:00
--
程序全部关闭，又打开，问题依然存在，因为是sql数据库，而且表已经很多，上传文件不太方便，版主是否可以远程看一下？
-- 发布时间：2015/9/8 16:36:00
--
代码没问题，请认认真真测试。
-- 发布时间：2015/9/9 10:46:00
--
从昨天测试到今天，把代码重新自己写了一遍
Dim dr As DataRow = Tables("龙源宝藏").Current.DataRow
Dim wz As Integer = Tables("游戏个人数据_龙源宝藏").FindRow(dr)
If wz >=0 Then
Tables("游戏个人数据_龙源宝藏").Position = wz
End If
仍然真的，真的不行啊。
-- 发布时间：2015/9/9 10:47:00
--
代码没问题，没找到，说明表里面没有匹配的数据。
msgbox(wz)
-- 发布时间：2015/9/9 10:49:00
--
Dim dr As Row = Tables("龙源宝藏").Current
Dim wz As Integer = Tables("游戏个人数据_龙源宝藏").FindRow("流水号 = \'" & dr("流水号") & "\'")
If wz >=0 Then
Tables("游戏个人数据_龙源宝藏").Position = wz
End If