以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按照日期汇总每日数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117014)
--  作者：yifan3429
--  发布时间：2018/4/4 10:50:00
--  按照日期汇总每日数据
With wb.AddTable("","Table1")
    .Alternate = 3
    Dim nms() As String = {"部门名称","今日进店人数","今日成交人数","今日成交金额","本月累计进店人数","本月累计成交人数","本月累计成交金额","本月目标" ,"本月累计达成率"}
    .Head.AddRow(nms)
    For Each r As DataRow In DataTables("每日业绩明细").sqlSelect("", "", "日期 Desc")
        \'For Each r As DataRow In DataTables("终端用户").sqlSelect("[报备人] = \'" & name & "\'", "", "日期 Desc")
        With .Body.AddRow(r("部门名称"),r("今日进店人数"),r("今日成交人数"),r("今日成交金额"),r("本月累计进店人数"),r("本月累计成交人数"),r("本月累计成交金额"),r("本月目标"),r("本月累计达成率"))
            \'.AddCell(Format(r("日期"),"MM月dd日"))
        End With
    Next
End With
e.WriteString(wb.Build)
--  作者：有点甜
--  发布时间：2018/4/4 11:46:00
--  

为什么不先生成统计表（分组统计、交叉统计等），再导出统计表显示？

 

 
--  作者：yifan3429
--  发布时间：2018/4/4 15:01:00
--  
Dim g As New GroupTableBuilder("统计表", DataTables("每日业绩明细"))
g.Groups.AddDef("日期")
g.Groups.AddDef("部门名称")
g.Totals.AddDef("今日_成交人数")
g.Totals.AddDef("今日_进店人数")
g.Totals.AddDef("今日_进店达成率")
g.Totals.AddDef("本月_累计成交人数")
g.Totals.AddDef("本月_累计进店人数")
g.Totals.AddDef("本月_累计成交金额")
g.Totals.AddDef("本月_累计达成率", AggregateEnum.Average)
g.SubTotal = True
g.Decimals = 2
g.FromServer = True
g.Build()
MainTable = Tables("统计表")


移动版这个怎么调用呢
每次都要生成吗  多个终端同时使用会不会卡死啊
[此贴子已经被作者于2018/4/4 15:01:21编辑过]
--  作者：有点甜
--  发布时间：2018/4/4 15:17:00
--  

1、调用参考

 

http://www.foxtable.com/mobilehelp/scr/0067.htm

 

2、如果要实时统计，肯定要每次都生成；如果不需要实时统计（比如每天只需要生成一次），那就直接调用统计表，不需要每次生成。