以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  创建动态关联问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16942)
--  作者：实话实说
--  发布时间：2012/2/28 14:10:00
--  创建动态关联问题

 

建一个含有[产品]表和[用料]表的动态关联显示窗口.打开窗口的时候创建关联,关闭窗口的时候删除关联,代码入下
打开窗口(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("产品_用料")

问题:关闭窗口不删除关联时,关联一直存在,打开窗口时关联正常,设置了删除关联代码后,打开窗口则关联失败.如何改进
--  作者：hp001
--  发布时间：2012/6/14 15:10:00
--  
刚好碰到这问题，顶你个肺
--  作者：狐狸爸爸
--  发布时间：2012/6/14 15:36:00
--  

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

否则，索性模拟关联表：

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

 
--  作者：don
--  发布时间：2012/6/14 15:50:00
--  
俺以前喜欢用关联表,现在一个关联也不要.
--  作者：ft20130316
--  发布时间：2013/4/22 17:16:00
--  
不用关联的话，要怎样才能在另一表中显示原表中的相关信息呢？
[此贴子已经被作者于2013-4-22 17:20:37编辑过]
--  作者：ft20130316
--  发布时间：2013/4/22 17:30:00
--  
不会是用  SQLQuery 型Table来读数据，再单独处理下数据保存吧