主题：组合多表数据

红袍老师还没休息啊。问一个问题：

想实现：

在一个窗口里，有两个表，如下图：

此主题相关图片如下：qq截图20160808231046.png

想实现右边也显示左边的同样的会员卡号的所有的行。

现在只是选中行，要显示左边同样的行。

我知道中文怎么做，就是 左边的表加载后，将左边表的 所有【会员卡号】做为右边表【会员卡号】的加载条件。

另外，就是两个表同样会员卡号行的位置要一样。即使排序之后。为了看起来就像一张表。

为什么想这样做：这样的话就可以不用组合多个表加载、统计，而是都是加载或者统计单个表，而在窗口放在了一起。这样也许能提高加载效率。

不知道能不能实现。。。

加载：

谢谢 Hyphen 老师，比如左表排序之后，行的位置就改变了。想要右表也的行也随着变化。两个表都有【会员卡号】的字段。

不知道有没有

没有这种用法

第一步按照老师的方法可以实现了：

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

 

哦。或者说将这两个表不可见，另外做一个显示表。将这两个表的数据合并在一起。

因为已经是加载好的表了。相比用加载、统计效率是不是应该会更高一点。

这样可行吗？

 循环左表的每一行，去右表查询对应的行，修改sortkey值为相同的值，即可。

恩恩。谢谢 红袍老师，刚发现用两个表来显示不好，因为有滚动条，一个表往下拉的时候，没有代码可以让另一个表同时往下拉吧？哈哈。

所以我想另外做一个显示表，将两个表的数据都放在这个显示表。

这样就不存在排序、拖动滚动条 不同步 的问题。

FT的特色功能不熟悉。。。不知道怎么弄。。。

AfterScroll  

If Forms("窗口1").Opened Then
   Dim tbl As Table = Tables("窗口1_Table2")
   If e.Table.TopVisibleRow <> tbl.TopVisibleRow Then
      tbl.TopVisibleRow = e.Table.TopVisibleRow
      e.Table.TopVisibleRow = e.Table.TopVisibleRow '此行不可少,确保第一个可见行完整显示
   End If
End If