Foxtable(狐表)用户栏目专家坐堂 → [求助]增加临时列汇总模式报错


  共有2299人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
紫色幽魂
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:5382 威望:0 精华:0 注册:2015/1/23 0:31:00
[求助]增加临时列汇总模式报错  发帖心情 Post By:2019/9/28 22:58:00 [只看该作者]

设置汇总模式后增加临时列,并填写数值进去,生成报表时就报错,报错内容:未将对象引用设置到对象的实例。
临时列增加后没有问题,只要在临时列里面填充数值就报错,
还有怎么将汇总名称横向合并


    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编辑过]

 回到顶部