统计中的月增加一列周 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

统计表里面有年和月，怎样增加一列周，变成按周统计：

Dim b As New GroupTableBuilder("装配计划列表", DataTables("装配周计划"))
b.Groups.AddDef("生产交期", DateGroupEnum.Year, "年")
b.Groups.AddDef("生产交期", "月")

b.Totals.AddDef("订单数量", "", "订单_订单量")
b.Totals.AddDef("完成数量", "", "产能_完成数量")
b.Totals.AddDef("不良率", "", "品质_不良率")
b.SamePeriodGrowth = True
b.CircleGrowth = True
b.Subtotal = True
b.Build()

b.Groups.AddDef("生产交期", DateGroupEnum.Week, "周")

谢谢，忽然想到改为周会有些问题，比如，有的周连续2个月。不过在使用如下代码的时候为什么“达成率”与“不良率”为什么不准呢，而且不显示百分比（达成率=完成数量/订单数量*100%；不良率=不良数量/完成数量*100%），请教了，谢谢！

Dim b As New CrossTableBuilder("装配计划列表",DataTables("装配周计划"))

b.HGroups.AddDef("生产线") '添加客户列用于水平分组

b.VGroups.AddDef("周数") '添加产品列用于垂直分组

b.Totals.AddDef("订单数量") '添加数量列用于统计

b.Totals.AddDef("完成数量") '添加数量列用于统计

b.Totals.AddDef("达成率") '添加数量列用于统计

b.Totals.AddDef("不良数量") '添加数量列用于统计

b.Totals.AddDef("不良率") '添加数量列用于统计

b.Build '生成统计表

Dim t As Table = e.form.controls("Table1").Table

t.datasource = b.BuildDataSource

t.StopRedraw

t.DataTable.GlobalHandler.AfterEdit = True

t.AllowEdit = True

t.AutoSizeCols(3)

t.DefaultRowHeight = 31

t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))

For Each r As Row In t.Rows

r("_sortkey") = r.Index

t.rows(t.rows.count - 1).Move(0)

t.Sort = "_sortkey"

t.DataTable.AcceptChanges

t.ResumeRedraw
图片点击可在新窗口打开查看

此主题相关图片如下：111.png

1、这种是对达成率进行求和，当然不正确。比率要手工计算，参考这里的及格率：http://www.foxtable.com/webhelp/topics/3227.htm

2、百分比要自行另外对列进行设置：http://www.foxtable.com/webhelp/topics/1659.htm

3、去掉b.Build，使用了BuildDataSource就不要再使用Build

蓝老师：这个太难了，搞了好久都没有改好，能不能帮忙改改呀，谢谢了！

参考帮助的用法，添加临时的表达式列进行计算。不会就上传实例

麻烦了，谢谢，实在是想不出来了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

版本太高了，请蓝老师转化下可以码，我的是5月29的版本

主题：统计中的月增加一列周