如何取到子表多行的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何取到子表多行的数据

共有1497人关注过本帖树形打印复制链接主题：如何取到子表多行的数据

timber83

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：43 积分：472 威望：0 精华：0 注册：2022/9/5 21:00:00

如何取到子表多行的数据 发帖心情

Post By：2024/5/11 9:18:00 [只看该作者]

foxtable 能不能实现这样的功能，如下，如果能实现，需要怎么做？

有两张表，企业目录表，企业地址表，企业目录表关联企业地址表（一家企业有多地址），可否将同一家企业的企业地址自动合并到在企业目标表的企业地址这一列？

如，企业目录表公司甲，企业地址表对应的公司甲有地址1.地址2，目录表中的地址列自动计算出地址1、地址2的结果

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110559 积分：562685 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

下一主题 >> << 上一主题

主题：如何取到子表多行的数据