以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉统计表中的合并单元格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65250)
--  作者：一笑
--  发布时间：2015/3/12 14:21:00
--  交叉统计表中的合并单元格

交叉统计中，想对得出的统计表第1列中的相同内容的单元格进行合并，其中代码如下：

 

Dim HGroup As String

Dim VGroup As String

HGroup = e.Form.Controls ("HGroup").Text\'水平分组

VGroup = e.Form.Controls ("VGroup").Text\'垂直分组

Dim TotalOn As String

TotalOn = e.Form.Controls ("TotalOn").Text

 

With Tables("事件统计_Table1")

    .MergeMode = MergeModeEnum.Standard \'标准合并模式

    .MergeCols.Clear() \'清除原来的合并列

    .MergeCols.Add("VGroup") \'加入要合并的列

    .MergeCols.Add("HGroup")

    .AllowMerge = True \'启用合并模式

End With

 

上述代码无效果，代码改为.MergeCols.Add(".Cols(0)"),也不行，求解，谢谢！
--  作者：Bin
--  发布时间：2015/3/12 14:24:00
--  
 .MergeCols.Add(VGroup) 变量不要双引号
--  作者：一笑
--  发布时间：2015/3/12 14:31:00
--  
都试过了，不管用。改为自由合并也不行。
--  作者：Bin
--  发布时间：2015/3/12 14:32:00
--  
上例子吧
--  作者：有点甜
--  发布时间：2015/3/12 14:41:00
--  
以下是引用一笑在2015/3/12 14:31:00的发言：
都试过了，不管用。改为自由合并也不行。

 

 

肯定可以的，比如

 

With Tables("事件统计_Table1")

    .MergeMode = MergeModeEnum.Standard \'标准合并模式

    .MergeCols.Clear() \'清除原来的合并列

    .MergeCols.Add(.Cols(0).Name) \'加入要合并的列

    .AllowMerge = True \'启用合并模式

End With
--  作者：一笑
--  发布时间：2015/3/12 15:13:00
--  
又进行了测试，代码没有问题，是其他问题，谢谢！