Foxtable(狐表)用户栏目专家坐堂 → 关于统计


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

主题:关于统计

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
关于统计  发帖心情 Post By:2016/12/28 9:52:00 [只看该作者]

下面的代码,怎么把“染缸完成日期”加进去
Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker12")
Dim g As New GroupTableBuilder("统计表1", DataTables("染色生产表"))
g.Groups.AddDef("客户")
g.Groups.AddDef("颜色")
g.Groups.AddDef("品名大类")
g.Groups.AddDef("缸号")
'g.Totals.AddDef("染缸完成日期")
g.Totals.AddDef("重量")
g.Totals.AddDef("匹数")
g.VerticalTotal = True
g.FromServer = True
g.filter =  "染缸完成日期 = '" & dt1.value & "'"
g.Build()
Tables(e.Form.Name & "_Table6").DataSource  = g.Builddatasource()
Tables(e.Form.Name & "_Table6").AutoSizeCols
比如dt1.value是12月25日,想把染缸完成日期12月25日,加入到统计表去

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/28 9:58:00 [只看该作者]

方法一:最后加上

 

Tables(e.Form.Name & "_Table6").DataTable.DataCols.Add("染缸完成日期", gettype(string))
Tables(e.Form.Name & "_Table6").DataTable.ReplaceFor("染缸完成日期",  dt1.value)

 

方法二:把日期作为分组

 

g.Groups.AddDef("染缸完成日期")


 回到顶部