以文本方式查看主题

-  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=174238)
--  作者：foxgo
--  发布时间：2022/1/6 16:28:00
--  [原创]请问下跨表统计怎么做？
请问把不同的表，相同的列数据进行统计，谢谢！如图：
图片点击可在新窗口打开查看此主题相关图片如下：219.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/1/6 16:34:00
--  
参考：http://www.foxtable.com/webhelp/topics/1453.htm

分别查这3个表的数据相加即可，类似

If e.DataCol.Name = "品名" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("单价") = Nothing \'那么清空此行单价列的内容
    Else
dim sum as double
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品1").Find("[品名] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            sum = sum + dr("单价")
        End If
        dr = DataTables("产品2").Find("[品名] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            sum = sum + dr("单价")
        End If
e.DataRow("单价") = sum
    End If
End If