以文本方式查看主题

-  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=5097)

--  作者:woodiy
--  发布时间: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编辑过]

--  作者:mr725
--  发布时间:2009/11/22 16:27:00
--  [求助]引用父表数据
 wz = Tables("通讯往来_table1").FindRow(dr)  改为: wz = Tables("通讯往来").FindRow(dr)


--  作者:czy
--  发布时间: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

只是不明白,既然要同步,就没必要用副本嘛。