主题：关联问题

设置关联表后有一个问题，就是加载表时必须一起加载，加载后就不能再单独加载了，否则报错，这样，当其它模块要引用其中一个表时，只能将关联的表一起加载，很别扭。如果关联的表绞多时容易引起混乱。设计时，我尽量采用动态关联和代码关联，但是，需要在同一个窗口显示时就必须设置关联。如果能采用动态关联显示就好了。实例窗口表如何动态关联显示

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

 有必要一定要设置关联吗？做关联的目的是什么？

 不是可以用简单方法，就可以利用副本表实现类似关联表的功能？

我只想在同一个窗口关联显示，用动态关联没弄出来，第1条建议还是先建立关联。

 模拟关联，就是控制一下currentchanged事件就好啊。没那么复杂

网络不太好。模拟关联还是要先建立关联，我需要动态关联，也就是打开窗口的时候建立关联，关闭窗口的时候删除关联，这样在运行其它模块时可以独立加载表，不需要关联加载。

不需要建立关联的啊，请好好看模拟关联的核心内容，就是currentChanged事件而已。

这有点不好理解

此主题相关图片如下：snap1.jpg

我要关联是想在同一个窗口关联同步显示，不要关联是不想在加载表的时候同步加载关联表，没有其它要求。因此最好打开窗口时关联，关闭窗口时删除关联。

能帮忙做一下1楼的案例吗

 同步显示控制currentchanged事件即可

5、关闭窗口设计器,回到产品表,打开表属性设置窗口,将其CurrentChanged事件代码设为:

If Forms("窗口1").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口1_Table1")
    With Tables("产品")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "产品编号 = " & .Current("产品编号")
        End If
    End With
End If