[求助]增加临时列汇总模式报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

设置汇总模式后增加临时列，并填写数值进去，生成报表时就报错，报错内容：未将对象引用设置到对象的实例。

临时列增加后没有问题，只要在临时列里面填充数值就报错，

还有怎么将汇总名称横向合并

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("序号")

tb2.Sort = "序号"

[此贴子已经被作者于2019/9/28 23:13:10编辑过]

这个是事件我写在窗口中的一个按钮Click事件里面的，没有在全局事件中写

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

增加临时列后再写入数据就会报错

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("序号")

tb2.Sort = "序号"

For Each dc As DataCol In DataTables("绩效_每日绩效_Table2").DataCols

If dc.Name.Contains("金额")

dc.SetFormat("0.00")

End If

此主题相关图片如下：tim截图20190929105446.png

这个怎么横向合并，我想合计行排序后还是在最后一行，怎么写

通过菜单设置汇总模式可以横向合并，这个是怎么操作的呢

此主题相关图片如下：tim截图20190929112249.png

主题：[求助]增加临时列汇总模式报错