以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列求和的问题！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61223)
--  作者：身份不明
--  发布时间：2014/12/9 10:16:00
--  列求和的问题！！

Dim g As New GroupTableBuilder("统计表1", DataTables("平张4开机工价"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("人员")
g.Totals.AddDef("总印次", "总印次/天")
g.SubTotal = True
g.FromServer = True
g.Build()
DataTables("统计表1").DataCols.Add("工资", Gettype(Double))
Tables("平张机4开工资直接统计_Table1").DataSource = g.BuildDataSource()

Tables("平张机4开工资直接统计_Table1").DataTable.DataCols.Add("工资", Gettype(Double))
For Each dr As Row In Tables("平张机4开工资直接统计_Table1").Rows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次/天")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next

 

 

上面的代码可以求出每个人每天的月工资，如果在当前里的统计表里按月小计工资的和呢。
--  作者：有点甜
--  发布时间：2014/12/9 10:20:00
--  

 参考

 

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

 
--  作者：身份不明
--  发布时间：2014/12/9 10:49:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20141209104601.jpg
图片点击可在新窗口打开查看
甜老师，我是在窗口里加的table，我想在这个表里在分一组求和，也没有报错，就是不出统计结果，是什么问题！！
--  作者：身份不明
--  发布时间：2014/12/9 10:50:00
--  
Dim g1 As New GroupTableBuilder("统计表1", DataTables("平张机4开工资直接统计_Table1"))
g1.Groups.AddDef("年",DateGroupEnum.Year,"年")
g1.Groups.AddDef("月")
g1.Groups.AddDef("人员")
g1.Totals.AddDef("工资")
g1.SubTotal = True
g1.FromServer = True
g1.Build()
--  作者：有点甜
--  发布时间：2014/12/9 11:20:00
--  
 例子。
--  作者：身份不明
--  发布时间：2014/12/9 11:44:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20141209113938.jpg
图片点击可在新窗口打开查看

Dim g As New GroupTableBuilder("统计表1", DataTables("平张4开机工价"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("人员")
g.Totals.AddDef("总印次", "总印次/天")
g.SubTotal = True
g.FromServer = True
g.Build()
DataTables("统计表1").DataCols.Add("工资", Gettype(Double))
Tables("平张机4开工资直接统计_Table1").DataSource = g.BuildDataSource()

Tables("平张机4开工资直接统计_Table1").DataTable.DataCols.Add("工资", Gettype(Double))
For Each dr As Row In Tables("平张机4开工资直接统计_Table1").Rows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次/天")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next

 

现在可以按月小计总印次的列，我想要的功能是如何实现按月小计工资的这列，不知道该如何写代码！
--  作者：有点甜
--  发布时间：2014/12/9 12:12:00
--  

 做个例子上来很难么？

 

 思路：不要设置 g.SubTotal = True，生成表后，然后设置根据年月设置汇总模式。