Dim b As New CrossTableBuilder("统计表1",dt)
b.HGroups.AddDef("账户")
b.HGroups.AddDef("年")
b.VGroups.AddDef("月")
b.Totals.AddDef("收入")
b.Totals.AddDef("支出")
b.Build
Dim dt As DataTable = DataTables("统计表1")
dt.DataCols.Add("收入合计",Gettype(Double))
dt.DataCols.Add("支出合计",Gettype(Double))
For Each dr As DataRow In dt.DataRows
Dim s1 As Double = 0
Dim s2 As Double = 0
For Each dc As DataCol In dt.DataCols
If dc.Caption Like "*收入*" Then
s1 = s1 + dr(dc.Name)
ElseIf dc.Caption Like "*支出*" Then
s2 = s2 + dr(dc.Name)
End If
Next
dr("收入合计") = s1
dr("支出合计") = s2
Next
加好友 
发短信
Post By：2021/7/13 11:23:00 [显示全部帖子]
