Foxtable(狐表)用户栏目专家坐堂 → 交叉统计如何合并相同内容单元格


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

主题:交叉统计如何合并相同内容单元格

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


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
交叉统计如何合并相同内容单元格  发帖心情 Post By:2019/7/26 17:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:合计模式下合并.jpg
图片点击可在新窗口打开查看


If e.Sender.SelectedPage.Text = "UV单号"  Then
    MessageBox.Show("UV单号为:'" & dth & "' 请确认 UV单号是否正确!")
    Dim dt As DataTable
    DataTables("zzmjcomtxmxhz").LoadFilter = "[单号] = '" & dth & "' and gx='UV线' "
    DataTables("zzmjcomtxmxhz").Load()
    dt=DataTables("zzmjcomtxmxhz")
    Dim g As New CrossTableBuilder("统计表10", dt)
    g.HGroups.AddDef("mgBH","线形编号")
    g.HGroups.AddDef("uvd","UV底")
    g.HGroups.AddDef("cz","材质")
    g.HGroups.AddDef("dh","订单")
    g.VGroups.AddDef("xd")
    g.Totals.AddDef("sl", "sl")
    g.HorizontalTotal = True
    g.VerticalTotal = True
    g.Decimals = 0
    g.Subtotal = True
     g.Build()
      
    e.Form.Controls("Table10").Table.DataSource =g.BuildDataSource
    Tables("线条下料计划_Table10").AutoSizeCols
    Tables("线条下料计划_Table10").Cols.Frozen = 1
    MessageBox.Show("'" & dth & "' UV单号生成完成 !")
    
End I f

请教如上代码的交叉统计  如何合并相同内容的单元格

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


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


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


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2019/7/26 18:03:00 [只看该作者]

希望能提供下代码指导或者提供一下交叉统计后合并的案例参考  谢谢!

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


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2019/7/26 18:14:00 [只看该作者]

这个窗口动态生成的表比较多,参考合并示例报错
[此贴子已经被作者于2019/7/26 18:15:17编辑过]

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


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

报什么错?请上传实例说明。

需要注意的是,统计表生成后的往往看到的是标题名称,而不是真正的列名,请自行看看列名

for each c as col in Tables("线条下料计划_Table10").cols
output.show(c.name & "," & c.caption)
next

 回到顶部