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


  共有2147人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
紫色幽魂
  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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 9:13:00 [只看该作者]

全局表事件有没有写代码?报错窗口勾选详细信息,看看是哪个事件出错

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


加好友 发短信
等级:三尾狐 帖子:682 积分:5382 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)全局表事件有没有写代码?报错窗口勾...  发帖心情 Post By:2019/9/29 9:18:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 9:22:00 [只看该作者]

全局事件有没有其它代码?1楼的代码看不出什么问题,上传实例说明

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


加好友 发短信
等级:三尾狐 帖子:682 积分:5382 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)全局事件有没有其它代码?1楼的代码看...  发帖心情 Post By:2019/9/29 9:52:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目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("序号")
    Next
    tb2.Sort = "序号"
    
    For Each dc As DataCol In DataTables("绩效_每日绩效_Table2").DataCols
        If dc.Name.Contains("金额")
            dc.SetFormat("0.00")
        End If
    Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 10:10:00 [只看该作者]

    For Each r As Row In tb2.Rows
        Dim r1 As DataRow = DataTables("绩效_单价").Find("工序内容 = '" & r("工序内容") & "'")
        If r1 IsNot Nothing Then
            r("序号") = r1("序号")
        End If
    Next

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


加好友 发短信
等级:三尾狐 帖子:682 积分:5382 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)    For Each r As Row In...  发帖心情 Post By:2019/9/29 10:56:00 [只看该作者]



图片点击可在新窗口打开查看此主题相关图片如下:tim截图20190929105446.png
图片点击可在新窗口打开查看
这个怎么横向合并,我想合计行排序后还是在最后一行,怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 11:02:00 [只看该作者]

Foxtable不支持横向合并。排序这个没有办法控制,建议不要使用统计里面的合计,生成统计表后再使用这种方式合计:http://www.foxtable.com/webhelp/topics/2750.htm

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


加好友 发短信
等级:三尾狐 帖子:682 积分:5382 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)Foxtable不支持横向合并。排序这个没...  发帖心情 Post By:2019/9/29 11:25:00 [只看该作者]

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


图片点击可在新窗口打开查看此主题相关图片如下:tim截图20190929112249.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 11:31:00 [只看该作者]


 回到顶部