以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两个条件如何求和问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189340)

--  作者:13729935887
--  发布时间:2023/11/26 0:20:00
--  两个条件如何求和问题

图片点击可在新窗口打开查看此主题相关图片如下:不自动求和.png
图片点击可在新窗口打开查看
根据两个条件自动求和出问题,不知道哪里写的不对。请老师帮忙看下,谢谢了!

命令窗口代码

Dim dt As DataTable = DataTables("订单")
DataTables("销售统计").DataRows.Clear
For Each p As String In dt.GetValues("产品ID")
    For Each x As String In dt.GetValues("客户ID")
        Dim dr As DataRow = DataTables("销售统计").AddNew()
        dr("产品ID") = p
        dr("客户ID") = x
        dr("数量") = dt.Compute("sum(数量)" , "[产品ID]=\'" & p & "\'" And "[客户ID]=\'" & x & "\'")
    Next 
Next

--  作者:有点蓝
--  发布时间:2023/11/26 19:43:00
--  
Dim dt As DataTable = DataTables("订单")
DataTables("销售统计").DataRows.Clear
For Each p As String() In dt.GetValues("产品ID|客户ID")
        Dim dr As DataRow = DataTables("销售统计").AddNew()
        dr("产品ID") = p(0)
        dr("客户ID") =p(1)
        dr("数量") = dt.Compute("sum(数量)" , "[产品ID]=\'" & p(0) & "\' And [客户ID]=\'" & p(1) & "\'")
Next

--  作者:13729935887
--  发布时间:2023/11/27 20:38:00
--  
谢谢版主,辛苦了!