狐表自带的统计演示代码代码一；
If MainTable Is Nothing Then Return
End If
If MainTable.Name = "统计" Then
Dim f As New Filler
DataTables("统计").DataRows.Clear() '清除原有数据
f.SourceTable = DataTables("交易明细")
f.SourceCols = "客户姓名"
f.DataTable = DataTables("统计")
f.DataCols = "客户姓名"
f.Fill()
'DataTables("统计").DataCols("数量").Recalc()
End If
代码二；
Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("交易明细")
If e.DataCol.Name = "客户姓名" Then
dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
dr("金额") = dt.Compute("Sum(实收入_金额)","[客户姓名] = '" & dr("客户姓名") & "'")
End If
这2行代码只能统计一个表里的数据，假如有2个以上的表，需要在 统计表里 统计，代码应该怎么说
加好友 
发短信
Post By：2014/12/29 14:27:00 [显示全部帖子]
