- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- TABLE副本的光标指针不能与TABLE同步的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5097)
-- 发布时间：2009/11/22 12:47:00
-- TABLE副本的光标指针不能与TABLE同步的问题
此主题相关图片如下：qq截图未命名.jpg
如上图所示，如果才能实现TALE副本的光标指针与TABLE同步呢？
有好的办法吗？
TABLE副本的
CurrentChanged
选择不同数据行后执行，也就是Current属性发生变化后执行。
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("通讯往来").Find("[ID] = \'" & e.Table.Current("ID") & "\'")
If dr IsNot Nothing Then
wz = Tables("通讯往来_table1").FindRow(dr)
If wz >= 0 Then
Tables("通讯往来").Position = wz
End If
End If
为什么 老出错出下错误？
此主题相关图片如下：qq截图未命名2.jpg
[此贴子已经被作者于2009-11-22 12:49:33编辑过]
-- 发布时间：2009/11/22 16:27:00
-- [求助]引用父表数据
wz = Tables("通讯往来_table1").FindRow(dr) 改为： wz = Tables("通讯往来").FindRow(dr)
-- 发布时间：2009/11/22 18:06:00
--
如果仅仅是与主表同步，只需这样就可以吧
Tables("通讯往来").Position = e.Table.Position
[此贴子已经被作者于2009-11-22 18:07:01编辑过]
-- 发布时间：2009/11/22 21:47:00
--
代码应该是：
Dim wz As Integer
If e.Table.Current IsNot Nothing Then
wz = Tables("通讯往来").FindRow(e.Table.Current.DataRow)
If wz >= 0 Then
Tables("通讯往来").Position = wz
End If
End If
只是不明白，既然要同步，就没必要用副本嘛。