主题：[求助]分组求和问题

有一个表

直接分组统计，然后循环每一行，减去第一次的交易，即可。

 

你需要把统计显示在哪里？是sql语句，还是代码？具体问题做个实例发上来测试。

直接生成一个临时表就可以，sql 和代码都可以，只要能显示结果就可以(最好能自定义前n笔交易不计算)

Dim g As New GroupTableBuilder("统计表1", DataTables("表B"))
g.Groups.AddDef("第一列")
g.Totals.AddDef("第二列")
g.Build()
Dim t = Tables("统计表1")
For Each r As Row In t.Rows
    Dim fdr = DataTables("表B").find("第一列='" & r("第一列") & "'", "_Identify")
    If fdr IsNot Nothing Then
        r("第二列") -= fdr("第二列")
    End If
Next
MainTable = Tables("统计表1")

想不计算前10笔记录怎么写呢

 

如果是sqlserver数据库，直接用sql语句处理，比较方便，效率也比较高

 

如果写代码，较为繁琐。

 

Dim g As New GroupTableBuilder("统计表1", DataTables("表B"))
g.Groups.AddDef("第一列")
g.Totals.AddDef("第二列")
g.Build()
Dim t = Tables("统计表1")
For Each r As Row In t.Rows
    Dim sum As Double = 0
    Dim drs = DataTables("表B").Select("第一列='" & r("第一列") & "'", "_Identify")
    For i As Integer = 0 To 9
        If drs.count <= i Then
            Exit For
        End If
        sum += drs(i)("第二列")
    Next
    r("第二列") -= sum
   
Next
MainTable = Tables("统计表1")