以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  交叉统计如何合并相同内容单元格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138266)

--  作者:chen_sheng
--  发布时间: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

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

--  作者:有点蓝
--  发布时间:2019/7/26 17:37:00
--  
参考:http://www.foxtable.com/webhelp/topics/1373.htm
--  作者:chen_sheng
--  发布时间:2019/7/26 18:03:00
--  
希望能提供下代码指导或者提供一下交叉统计后合并的案例参考  谢谢!
--  作者:chen_sheng
--  发布时间:2019/7/26 18:14:00
--  
这个窗口动态生成的表比较多,参考合并示例报错
[此贴子已经被作者于2019/7/26 18:15:17编辑过]

--  作者:有点蓝
--  发布时间:2019/7/26 20:43:00
--  
报什么错?请上传实例说明。

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

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