以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同一列设置多个关联表，却只能显示其中一个关联表数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186093)
--  作者：foxtable1
--  发布时间：2023/4/6 9:46:00
--  同一列设置多个关联表，却只能显示其中一个关联表数据
一个主表A的同一列，建立了两个关联子表1、2，对应关联到两个不同结构的表B、C,主表A选择不同行时，只有子表1会显示关联数据 ，子表2不会显示关联数据（即使切换到子表2，子表２内仍然没有数据）。
1、是什么原因？
2、如何实现：主表A表事件currentchanged发生时，根据ｃｕｒｒｅｎｔ行非关联列的内容，能不能自动切换到子表1或子表2，并显示相关联数据。
--  作者：foxtable1
--  发布时间：2023/4/6 10:06:00
--  

Tables("关联表2").Visible = false
Tables("关联表1").Visible = True
只能解决子表1、2切换问题，但不能解决子表1、2内的关联数据问题
--  作者：有点蓝
--  发布时间：2023/4/6 10:07:00
--  
表2没有加载数据，或者没有关联的数据
--  作者：foxtable1
--  发布时间：2023/4/6 10:25:00
--  
1、表2实际有关联数据 ，应该是没有加载。这种情况如何实现加载子表2？
2、关联关系有优先级吗？能代码设置优先级吗？
3、因表B和表C的结构不同，无法合并，但他们都是表A的子表，碰到如上问题，有好的解决方法吗？
--  作者：有点蓝
--  发布时间：2023/4/6 10:33:00
--  
1、参考：http://www.foxtable.com/webhelp/topics/2228.htm
2、没有优先级
3、
Tables("表A.表2").Visible = false
Tables("表A.表1").Visible = True
--  作者：foxtable1
--  发布时间：2023/4/6 11:11:00
--  
If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
Else
    If e.Table.Current("执收项目名称").Contains("汇缴") Then
        If relations.Contains("po1") Then
            relations.delete("po1")
        End If
        If relations.Contains("po2") = False Then
            Dim DataCols0 As DataCol
            \'Dim DataCols1 As DataCol
            Dim DataCols2 As DataCol
            DataCols0 = DataTables("往来缴款清单_一体化").DataCols("缴款凭证号")
            DataCols2 = DataTables("往来电子票据_票据平台").DataCols("缴款凭证号")
             Relations.Add("po2", DataCols0, DataCols2)
              Dim t2 As Table = Tables("往来缴款清单_一体化.往来电子票据_票据平台")
               t2.Visible = True
            end if
    Else
        If relations.Contains("po2") Then
            relations.delete("po2")
        End If
        If relations.Contains("po1") = False Then
            Dim DataCols0 As DataCol
            Dim DataCols1 As DataCol
            DataCols0 = DataTables("往来缴款清单_一体化").DataCols("缴款凭证号")
            
            DataCols1 = DataTables("往来电子票据_公共支付").DataCols("缴款凭证号")
           
            Relations.Add("po1", DataCols0, DataCols1)
          
            Dim t1 As Table = Tables("往来缴款清单_一体化.往来电子票据_公共支付")
           
            t1.Visible = True
            
        End If
    End If
End If

这样的代码，t1会随currentchanged事件而显示数据，而t2还是没有数据。
同菜单里设置关联的结果似乎一样
--  作者：有点蓝
--  发布时间：2023/4/6 11:16:00
--  
看3、4、5楼
--  作者：foxtable1
--  发布时间：2023/4/6 11:18:00
--  
请问：加载dataTables("表C名")与加载关联子表dataTables("表A名.表C名")，是不一回事，是吗？
--  作者：foxtable1
--  发布时间：2023/4/6 11:23:00
--  
1、参考：http://www.foxtable.com/webhelp/topics/2228.htm，这个同步加载子表，是完成了的。子表1和子表2都完成了加载的。但是在关联表中，只有子表1有数据，子表2没有数据。
--  作者：有点蓝
--  发布时间：2023/4/6 11:24:00
--  
请上传实例说明