| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- Cross TableBuilder如何传递 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154300) |
|
| -- 作者：yetle -- 发布时间：2020/9/10 14:55:00 -- Cross TableBuilder如何传递 标黄色底的代码是错的，怎么写可以将Cross TableBuilder传递给table1 Dim e As RequestEventArgs = args(0) Dim wb As New WeUI With wb.AddButtonGroup("","btg8",True) \'垂直排列 .Add("btn8", "返回","","/ddindex.htm") End With bd1.HGroups.AddDef("扫码时间",DateGroupEnum.Year,"年") \'添加日期列用于水平分组,按年分组 bd1.HGroups.AddDef("扫码时间","月") \'添加日期列用于水平分组,按月分组 bd1.HGroups.AddDef("扫码时间",DateGroupEnum.day,"日") \'添加日期列用于水平分组,按年分组 bd1.VGroups.AddDef("组别","组别_{0}") \'添加产品列用于垂直分组 bd1.Totals.AddDef("件数") \'添加数量列用于统计 bd1.Subtotal = True \'生成汇总模式 bd1.SubtotalLevel = 0 \'只生成总计行 bd1.Build \'生成统计表 \'Tables("Table1").DataSource = bd1.BuildDataSource() \' wb.AddPageTitle("","pageheader1", "班组产量" ) With wb.AddTable("","Table1") .CreateF romDataTable(bd1.Build) End With e.WriteString(wb.Build) [此贴子已经被作者于2020/9/10 17:43:43编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2020/9/10 15:08:00 -- 参考：http://www.foxtable.com/webhelp/topics/1906.htm Tables("窗口1_Table1").DataSource
[此贴子已经被作者于2020/9/10 15:08:46编辑过]
|
|
| -- 作者：yetle -- 发布时间：2020/9/10 15:31:00 -- 这不是窗口表呢！！！！ With wb.AddTable("","Table1") .CreateF romDataTable(bd1.Build) End With [此贴子已经被作者于2020/9/10 15:32:13编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2020/9/10 15:39:00 -- .CreateF romDataTable(bd1.Build(true)) |
|
| -- 作者：yetle -- 发布时间：2020/9/10 16:00:00 -- 表不显示出来呢？ bd1.HGroups.AddDef("扫码时间",DateGroupEnum.Year,"年") \'添加日期列用于水平分组,按年分组 bd1.HGroups.AddDef("扫码时间","月") \'添加日期列用于水平分组,按月分组 bd1.HGroups.AddDef("扫码时间",DateGroupEnum.day,"日") \'添加日期列用于水平分组,按年分组 bd1.VGroups.AddDef("组别","组别_{0}") \'添加产品列用于垂直分组 bd1.Totals.AddDef("件数") \'添加数量列用于统计 bd1.Subtotal = True \'生成汇总模式 bd1.SubtotalLevel = 0 \'只生成总计行 wb.AddPageTitle("","pageheader1", "班组产量" ) With wb.AddTable("","Table1")
End With e.WriteString(wb.Build) [此贴子已经被作者于2020/9/10 16:04:36编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2020/9/10 16:22:00 -- 只能说没有符合条件的数据。 到命令窗口测试bd1.Build看统计表有没有数据
|
|
| -- 作者：yetle -- 发布时间：2020/9/10 16:29:00 -- pc端已经正常取数了 Dim sql As String = "Select 组别,件数,扫码时间 F ROM 派发工序表 where month(扫码时间)=datename(month,getdate()) And year(扫码时间)=datename(year,getdate()) And 单据状态=\'已完成\' and 工序号=\'103\' and 组别 is not null and ( 组别 like \'A%\' or 组别 like \'B%\' or 组别 like \'C%\')" Dim bd1 As New CrossTableBuilder("统计表1",sql, "XSC_ERP") bd1.HGroups.AddDef("扫码时间",DateGroupEnum.Year,"年") \'添加日期列用于水平分组,按年分组 bd1.HGroups.AddDef("扫码时间","月") \'添加日期列用于水平分组,按月分组 bd1.HGroups.AddDef("扫码时间",DateGroupEnum.day,"日") \'添加日期列用于水平分组,按年分组 bd1.VGroups.AddDef("组别","组别_{0}") \'添加产品列用于垂直分组 bd1.Totals.AddDef("件数") \'添加数量列用于统计 bd1.Subtotal = True \'生成汇总模式 bd1.SubtotalLevel = 0 \'只生成总计行 bd1.Build \'生成统计表 Tables("班组产量_Table1").DataSource = bd1.BuildDataSource() [此贴子已经被作者于2020/9/10 17:43:21编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2020/9/10 16:31:00 -- bd1.Subtotal = True \'生成汇总模式 bd1.SubtotalLevel = 0 \'只生成总计行 bd1.Build \'这一句去掉，重复多余 \'Tables("Table1").DataSource = bd1.BuildDataSource() \' wb.AddPageTitle("","pageheader1", "班组产量" ) With wb.AddTable("","Table1") .CreateF romDataTable(bd1.Build(true)) End With e.WriteString(wb.Build)
|
|
| -- 作者：yetle -- 发布时间：2020/9/10 16:52:00 -- 有去掉的 bd1.HGroups.AddDef("扫码时间",DateGroupEnum.Year,"年") \'添加日期列用于水平分组,按年分组 bd1.HGroups.AddDef("扫码时间","月") \'添加日期列用于水平分组,按月分组 bd1.HGroups.AddDef("扫码时间",DateGroupEnum.day,"日") \'添加日期列用于水平分组,按年分组 bd1.VGroups.AddDef("组别","组别_{0}") \'添加产品列用于垂直分组 bd1.Totals.AddDef("件数") \'添加数量列用于统计 bd1.Subtotal = True \'生成汇总模式 bd1.SubtotalLevel = 0 \'只生成总计行 wb.AddPageTitle("","pageheader1", "班组产量" ) With wb.AddTable("","Table1")
End With e.WriteString(wb.Build) |
|
| -- 作者：有点蓝 -- 发布时间：2020/9/10 16:57:00 -- 试试 dim dt as datatable = bd1.Build(true) With wb.AddTable("","Table1")
End With |