以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]统计演示的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62292)
--  作者：as2517
--  发布时间：2014/12/29 14:27:00
--  [求助]统计演示的问题
狐表自带的统计演示代码
代码一；
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个以上的表，需要在 统计表里 统计，代码应该怎么说
--  作者：有点甜
--  发布时间：2014/12/29 14:36:00
--  

 

http://www.foxtable.com/help/topics/2305.htm

 

http://www.foxtable.com/help/topics/2321.htm