生成统计表后，加代码
DataTables("统计表").DataCols.Add("今日收款",Gettype(Double))
For Each dr As DataRow In DataTables("统计表").DataRows
dr("今日收款") = DataTables("明细表").Compute("sum(收款金额)","第一列 = '" & dr("第一列") & "'")
Next
加好友 
发短信
Post By：2015/12/1 16:14:00 [显示全部帖子]
