标黄色底的代码是错的,怎么写可以将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编辑过]