| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何做到日统计对比 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50854) |
| -- 作者：发财 -- 发布时间：2014/5/14 15:59:00 -- 如何做到日统计对比 If Tables("收购销售查询窗口_Table1").Cols(1).name = "猪主姓名" Then Dim g As New GroupTableBuilder("统计表10", Tables("收购销售查询窗口_Table1").DataTable) g.Groups.AddDef("日期", DateGroupEnum.Year, "年") g.Groups.AddDef("日期",DateGroupEnum.Month, "月") g.Totals.AddDef("头数", "", "头数_值") g.Totals.AddDef("重量", "", "重量_值") g.Totals.AddDef("收购金额", "", "金额_值") g.SamePeriodGrowth = True g.CircleGrowth = True g.GroupProportion = True g.Build() Tables("统计表10").AutoSizeCols(10) With Tables("统计表10").PrintInfo .Title = vars("gg") &"生猪收购月统计表" .PageFooter = "第[PageNo]页,共[PageCount]页" .PageFooterLine = True .PaperKind = 9 .FitIntoPage = True .LandScape = True \'横向打印 End With Tables("统计表10").Print(True, False) Else MessageBox.Show("请先加载收购!") End If
|
| -- 作者：发财 -- 发布时间：2014/5/14 16:00:00 -- 如何将上述代码改为日统计对比？ |
| -- 作者：Bin -- 发布时间：2014/5/14 16:03:00 -- g.Groups.AddDef("日期",DateGroupEnum.Day, "日") |
| -- 作者：发财 -- 发布时间：2014/5/14 16:07:00 -- 这样不行，日期在占比中 |
| -- 作者：有点甜 -- 发布时间：2014/5/14 16:27:00 -- 不理解你的意思
If Tables("收购销售查询窗口_Table1").Cols(1).name = "猪主姓名" Then
Dim g As New GroupTableBuilder("统计表10", Tables("收购销售查询窗口_Table1").DataTable)
g.Groups.AddDef("日期", DateGroupEnum.none)
g.Totals.AddDef("头数", "", "头数_值")
g.Totals.AddDef("重量", "", "重量_值")
g.Totals.AddDef("收购金额", "", "金额_值")
g.SamePeriodGrowth = True
g.CircleGrowth = True
g.GroupProportion = True
g.Build()
Tables("统计表10").AutoSizeCols(10)
With Tables("统计表10").PrintInfo
.Title = vars("gg") &"生猪收购月统计表"
.PageFooter = "第[PageNo]页,共[PageCount]页"
.PageFooterLine = True
.PaperKind = 9
.FitIntoPage = True
.LandScape = True \'横向打印
End With
Tables("统计表10").Print(True, False)
Else
MessageBox.Show("请先加载收购!")
End If
|