以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94618)
--  作者：lk15502
--  发布时间：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日，加入到统计表去
--  作者：有点色
--  发布时间：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("染缸完成日期")