以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何取到子表多行的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191840)
--  作者：timber83
--  发布时间：2024/5/11 9:18:00
--  如何取到子表多行的数据
foxtable 能不能实现这样的功能，如下，如果能实现，需要怎么做？
有两张表，企业目录表，企业地址表，企业目录表关联企业地址表（一家企业有多地址），可否将同一家企业的企业地址自动合并到在企业目标表的企业地址这一列？
如，企业目录表公司甲，企业地址表对应的公司甲有地址1.地址2，目录表中的地址列自动计算出地址1、地址2的结果
--  作者：有点蓝
--  发布时间：2024/5/11 9:25:00
--  
参考：http://www.foxtable.com/webhelp/topics/1472.htm

如：

企业地址表，datacolchanged事件
Select Case e.DataCol.Name
    Case "地址"
        Dim pr As DataRow
        pr = DataTables("企业目录").Find("企业名称 = \'" & e.DataRow("企业名称") & "\'")
        If pr IsNot Nothing Then
            DataTables("企业目录").DataCols("企业名称").RaiseDataColChanged(pr)
        End If
End Select

企业目录表，datacolchanged事件
If e.DataCol.Name = "企业名称" Then
    Dim Filter As String = "[企业名称] = \'" & e.NewValue & "\'"
    e.DataRow("地址") = DataTables("企业地址").GetComboListString("地址", Filter).replace("|","；")
End If