设置汇总模式后增加临时列,并填写数值进去,生成报表时就报错,报错内容:未将对象引用设置到对象的实例。
临时列增加后没有问题,只要在临时列里面填充数值就报错,
还有怎么将汇总名称横向合并
Dim b As New CrossTableBuilder("无损人员月份绩效",DataTables("绩效_每日绩效"))
b.HGroups.AddDef("姓名") '添加客户列用于水平分组
b.HGroups.AddDef("工序内容")
b.VGroups.AddDef("日期",DateGroupEnum.Month ,"{0}月") '添加日期列用于垂直分组,按月分组
b.VGroups.AddDef("日期",DateGroupEnum.Day ,"{0}日") '添加日期列用于垂直分组,按日分组
b.Totals.AddDef("金额")
b.VerticalTotal = True
b.HorizontalTotal = True
b.Filter = "姓名 = '"& ry &"' and 日期 >= '"& ks &"' and 日期 <= '"& js &"'"
tb2.DataSource = b.BuildDataSource()
DataTables("绩效_每日绩效_Table2").DataCols.Add("序号",Gettype(String))
Tables("绩效_每日绩效_Table2").Cols("序号").Move(1)
For Each r As Row In tb2.Rows
Dim r1 As DataRow = DataTables("绩效_单价").Find("工序内容 = '"& r("工序内容") &"'")
r("序号") = r1("序号")
Next
tb2.Sort = "序号"
[此贴子已经被作者于2019/9/28 23:13:10编辑过]