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


  共有12104人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/25 15:38:00 [显示全部帖子]

b.Totals.AddExp("人均", "iif(投工 = 0, Null, 加工费/投工)")

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/25 16:31:00 [显示全部帖子]

2、SqlGroupTableBuilder也可以设置条件的,有filter属性
3、可以增加表达式列:
 
Dim b As New SQLGroupTableBuilder("统计表1","日报源表")
b.Groups.AddDef("日期", DateGroupEnum.None) '添加日期列用于分组
b.Groups.AddDef("单位") '根据单位分组
b.Totals.AddDef("加工费") '添加加工费列用于统计
b.Totals.AddDef("投工") '添加投工列用于统计
b.Totals.AddExp("人均","[加工费]/[投工]")'添加人均列用于计算人均加工费
b.Build '生成统计表
DataTables("统计表1").DataCols.Add("列名",  GetType(Double), “表达式")
MainTable = Tables("统计表1") '打开生成的统计表
With Tables("统计表1")
     .Position = .Rows.Count - 1
End With

 回到顶部