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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 同一表格中多个列如何调用另一表格中的数据

共有3170人关注过本帖树形打印复制链接主题：同一表格中多个列如何调用另一表格中的数据

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/24 18:15:00 [显示全部帖子]

查询三次，把和相加即可。

http://www.foxtable.com/help/topics/1451.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 9:50:00 [显示全部帖子]

参考2楼，贴出你写的代码。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 10:35:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "产品1","产品2","产品3"
        Dim fdr1 As DataRow = DataTables("产品").Find("[产品] = '" & e.DataRow("产品1") & "'")
        Dim fdr2 As DataRow = DataTables("产品").Find("[产品] = '" & e.DataRow("产品2") & "'")
        Dim fdr3 As DataRow = DataTables("产品").Find("[产品] = '" & e.DataRow("产品3") & "'")
        Dim sum As Double = 0
        If fdr1 IsNot Nothing Then sum += fdr1("单价")
        If fdr2 IsNot Nothing Then sum += fdr2("单价")
        If fdr3 IsNot Nothing Then sum += fdr3("单价")
        e.DataRow("单价和") = sum
End Select

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

主题：同一表格中多个列如何调用另一表格中的数据