以文本方式查看主题

-  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=113229)

--  作者:积水成渊
--  发布时间:2018/1/11 14:53:00
--  [求助两表多列字段关联问题
有两个表我进行了多列关联,功能已经实现了,打开一次不会报错,当再次打开的时候会提示关联表已经存在,于是做了一个判断,又多次打开关联表,还是报错,这个问题如何解决?代码如下
If Relations.Contains("po") Then
    Relations.Delete("po")
else
Dim ParentCol(2) As DataCol
Dim ChildCol(2) As DataCol
ParentCol(0) = DataTables("GZ_部门绩效总额度表").DataCols("门店编码")
ParentCol(1) = DataTables("GZ_部门绩效总额度表").DataCols("会计月")
ParentCol(2) = DataTables("GZ_部门绩效总额度表").DataCols("项目编码")
ChildCol(0) = DataTables("GZ_门店员工绩效分配表").DataCols("核算部门编码")
ChildCol(1) = DataTables("GZ_门店员工绩效分配表").DataCols("会计月")
ChildCol(2) = DataTables("GZ_门店员工绩效分配表").DataCols("项目编码")
Relations.Add("po", ParentCol, ChildCol)
End If

--  作者:积水成渊
--  发布时间:2018/1/11 14:56:00
--  
这个是我做了判断后出现的错误
--  作者:积水成渊
--  发布时间:2018/1/11 14:56:00
--  
这个是我做了判断后出现的错误
图片点击可在新窗口打开查看此主题相关图片如下:x@u}%a2dl1d7vvecv11)9m.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/1/11 15:02:00
--  

我重复执行下面代码,没问题

 

If Relations.Contains("po") Then
    Relations.Delete("po")
End If

Dim ParentCol(1) As DataCol
Dim ChildCol(1) As DataCol
ParentCol(0) = DataTables("表A").DataCols("第一列")
ParentCol(1) = DataTables("表A").DataCols("第二列")
ChildCol(0) = DataTables("表B").DataCols("第一列")
ChildCol(1) = DataTables("表B").DataCols("第二列")
Relations.Add("po", ParentCol, ChildCol)
msgbox(1)


--  作者:积水成渊
--  发布时间:2018/1/11 15:08:00
--  
那个错误提示怎么回事呢
--  作者:积水成渊
--  发布时间:2018/1/11 15:09:00
--  
好的,我end if 括到后面去了
--  作者:积水成渊
--  发布时间:2018/1/11 15:14:00
--  
问题还是存在,找到另外的办法处理了,感谢老师