- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 两个条件如何求和问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189340)
-- 发布时间：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
-- 发布时间：2023/11/27 20:38:00
--
谢谢版主，辛苦了！