以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]交叉统计中的表达式列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30363)
--  作者：西瓜住持
--  发布时间：2013/3/26 17:02:00
--  [求助]交叉统计中的表达式列

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:统计表达式.foxdb

 

希望在生成的统计表右侧再增加一列表达式列｛统计｝=PD01*1+PD02*2+PD03*3+PD04*4+PD05*5

 

狐神出来解救苍生吧。
--  作者：FoxMan
--  发布时间：2013/3/26 17:25:00
--  
Dim b As New CrossTableBuilder("统计表",DataTables("订单"))
b.HGroups.AddDef("客户") \'添加客户列用于水平分组
b.VGroups.AddDef("产品") \'添加产品列用于垂直分组
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表

Dim fx As String
For Each c As Col In Tables("统计表").Cols
    If c.name.Contains("数量_") Then
        fx+="+[" & c.name & "] * " & C.Index
    End If
Next
If  fx  IsNot Nothing Then
    DataTables("统计表").DataCols.Add("ABC", Gettype(Double),fx.trim("+"))
    MainTable = Tables("统计表") \'打开生成的统计表
End If
--  作者：西瓜住持
--  发布时间：2013/3/27 15:44:00
--  

哈哈 谢啦，知道了DataCols.Add这个用法