[求助]代码生成统计表出错（除数为0)（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码生成统计表出错（除数为0)（已解决）

共有12105人关注过本帖树形打印复制链接主题：[求助]代码生成统计表出错（除数为0)（已解决）

hhbb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/6/25 21:40:00 [显示全部帖子]

Dim b As New SQLGroupTableBuilder("统计表1","日报源表")

b.Groups.AddDef("日期", DateGroupEnum.None) '添加日期列用于分组

b.Groups.AddDef("单位") '根据单位分组

b.Totals.AddDef("加工费") '添加加工费列用于统计

b.Totals.AddDef("投工") '添加投工列用于统计

'添加人均列用于计算人均加工费

b.Build '生成统计表

Dim t As Table = Tables("统计表1")

MainTable = t '打开生成的统计表

t.Position = t.Rows.Count - 1

t.DataTable.DataCols.Add("人均", Gettype(Double), "iif(投工=0,null,加工费/投工)")

hhbb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/6/25 22:32:00 [显示全部帖子]

Dim b As New GroupTableBuilder("统计表1",DataTables("日报源表"))

b.Groups.AddDef("日期", DateGroupEnum.None) '添加日期列用于分组

b.Groups.AddDef("单位") '根据单位分组

b.Totals.AddDef("加工费") '添加加工费列用于统计

b.Totals.AddDef("投工") '添加投工列用于统计

b.Build '生成统计表

Dim t As Table = Tables("统计表1")

t.DataTable.DataCols.Add("人均", Gettype(Double),"iif(投工=0,null,加工费/投工)")

MainTable = t '打开生成的统计表

t.Position = t.Rows.Count - 1

hhbb

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/6/25 22:32:00 [显示全部帖子]

Dim b As New GroupTableBuilder("统计表1",DataTables("日报源表"))

b.Groups.AddDef("日期", DateGroupEnum.None) '添加日期列用于分组

b.Groups.AddDef("单位") '根据单位分组

b.Totals.AddDef("加工费") '添加加工费列用于统计

b.Totals.AddDef("投工") '添加投工列用于统计

b.Build '生成统计表

Dim t As Table = Tables("统计表1")

t.DataTable.DataCols.Add("人均", Gettype(Double),"iif(投工=0,null,加工费/投工)")

MainTable = t '打开生成的统计表

t.Position = t.Rows.Count - 1

下一主题 >> << 上一主题

主题：[求助]代码生成统计表出错（除数为0)（已解决）