以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]单元格合并的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61787)
--  作者：hsh2055
--  发布时间：2014/12/19 9:48:00
--  [求助]单元格合并的问题

项目中[表1]结构如下:

 

      

   组别

 列1

列2   

   

   1            
   1            
   2            
   2            

 

希望实现:[组别]相同[列2]单元格合并
--  作者：Bin
--  发布时间：2014/12/19 9:49:00
--  
怎么个合并法?
--  作者：有点甜
--  发布时间：2014/12/19 9:52:00
--  

http://www.foxtable.com/help/topics/0157.htm

 
--  作者：有点甜
--  发布时间：2014/12/19 9:53:00
--  

 如果你要合并单元格内容，就必须编写代码把值填充到一个新的表格去才行。

 

 具体请上传例子
--  作者：hsh2055
--  发布时间：2014/12/19 10:16:00
--  
   组别
  列1 列2   
1     组别=1的被合并   
1    
2     组别=2的被合并   
2    
3 　 组别=3的被合并
3 　
3 　
--  作者：有点甜
--  发布时间：2014/12/19 10:26:00
--  
 Dim dt As DataTable = DataTables("表A")
For Each zb As String In dt.GetValues("第一列")
    Dim str As String = dt.GetComboListString("第三列", "第一列 = \'" & zb & "\'")
    For Each dr As DataRow In dt.Select("第一列 = \'" & zb & "\'")
        dr("第四列") = str
    Next
Next
Tables("表A").Cols("第四列").Move(1)
With Tables("表A")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("第一列")
    .MergeCols.Add("第四列")
    .MergeSort = "第一列,第四列"
    .AllowMerge = True
End With
--  作者：hsh2055
--  发布时间：2014/12/19 11:18:00
--  

代码好像有误,列3没合并,列1合并了.
--  作者：有点甜
--  发布时间：2014/12/19 11:21:00
--  

 不能修改列3的。

 

 你这种最多只能做到6楼那种效果。