以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式列判断求和  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120718)
--  作者：lur320
--  发布时间：2018/6/22 14:38:00
--  表达式列判断求和
有两列A和B,
A是物品号，B是入库数量
现在新建了一表达式列C。
请问表达式列C怎么写，可以实现：

物品号，入库数量，该物品的累计入库数量
XXX1,  1,          21
XXX1,  10,        21
XXX1,  10,        21
TTT2,  10,        10

数据比较多，用代码来算有些慢。
--  作者：lur320
--  发布时间：2018/6/22 14:41:00
--  
汇总统计不想做，能通过表达式解决 么？
--  作者：有点甜
--  发布时间：2018/6/22 14:41:00
--  

DatacolChanged事件

 

Select Case e.DataCol.name
    Case "物品号", "入库数量"
        Dim filter As String = "物品号 = \'" & e.DataRow("物品号") & "\'"
        Dim sum1 As Double = e.DataTable.Compute("sum(入库数量)", filter)
        e.DataTable.ReplaceFor("累计数量", sum1, filter)
End Select