主题：创建动态关联问题

 

建一个含有[产品]表和[用料]表的动态关联显示窗口.打开窗口的时候创建关联,关闭窗口的时候删除关联,代码入下
打开窗口(AfterLoad)
'创建关联
If Relations.Contains("产品_用料") Then
   e.Cancel = True
Else
Dim DataCols1(2) As DataCol
Dim DataCols2(2) As DataCol
DataCols1(0) = DataTables("产品").DataCols("产品分类")
DataCols1(1) = DataTables("产品").DataCols("型号")
DataCols1(2) = DataTables("产品").DataCols("规格")
DataCols2(0) = DataTables("用料").DataCols("产品分类")
DataCols2(1) = DataTables("用料").DataCols("型号")
DataCols2(2) = DataTables("用料").DataCols("规格")
Relations.Add("产品_用料", DataCols1, DataCols2)
End If

关闭窗口(AfterClose)
'删除关联
Relations.Delete("产品_用料")

问题:关闭窗口不删除关联时,关联一直存在,打开窗口时关联正常,设置了删除关联代码后,打开窗口则关联失败.如何改进

刚好碰到这问题，顶你个肺

要用关联，就让关联一直存在，没有必要删除。

否则，索性模拟关联表：

http://www.foxtable.com/help/topics/2222.htm

 

俺以前喜欢用关联表,现在一个关联也不要.

不用关联的话，要怎样才能在另一表中显示原表中的相关信息呢？

不会是用  SQLQuery 型Table来读数据，再单独处理下数据保存吧