共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：两个条件如何求和问题
1楼
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
2楼
有点蓝 发表于：2023/11/26 19:43:00Dim 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
3楼
13729935887 发表于：2023/11/27 20:38:00谢谢版主，辛苦了！
共3 条记录, 每页显示 10 条, 页签:
[1]