主题：创建动态关联问题

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

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