以文本方式查看主题

-  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=119307)

--  作者:zch178053198
--  发布时间:2018/5/22 15:10:00
--  通过两列信息该如何代码统计??

 

统计通过一列“名称”统计还行,但是需要两列“名称”“批号”下述代码就会出现一个问题如图:

 

 
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

 

If e.DataCol.Name = "名称" Then \'发生变化的是产品列.
    \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("数量") = DataTables("A入").Compute("Sum(数量)","[名称] = \'" & e.NewValue & "\'")
End If


If e.DataCol.Name = "批号" Then \'发生变化的是产品列.
    \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("数量") = DataTables("A入").Compute("Sum(数量)","[批号] = \'" & e.NewValue & "\'")
End If

 

问题:出现同一批号时,代码运行,就分开了,不能同时识别过滤“名称”“批号”,再出统计数量。正确代码给如何写。

 


--  作者:有点甜
--  发布时间:2018/5/22 15:41:00
--  

 

If e.DataCol.Name = "名称" OrElse e.DataCol.name = "批号" Then \'发生变化的是产品列.
    \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("数量") = DataTables("A入").Compute("Sum(数量)","[名称] = \'" & e.datarow("名称") & "\' and 批号 = \'" & e.datarow("批号") & "\'")
End If

 


--  作者:zch178053198
--  发布时间:2018/5/22 17:25:00
--  

 


--  作者:有点甜
--  发布时间:2018/5/22 18:16:00
--  
以下是引用zch178053198在2018/5/22 17:25:00的发言:

 

 

如果还有问题,请具体说明。