Foxtable(狐表)用户栏目专家坐堂 → [求助]单元格合并的问题


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

主题:[求助]单元格合并的问题

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


加好友 发短信
等级:幼狐 帖子:164 积分:1553 威望:0 精华:0 注册:2011/8/16 7:40:00
[求助]单元格合并的问题  发帖心情 Post By:2014/12/19 9:48:00 [只看该作者]

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

 

      

   组别

 列1

列2   

   

   1            
   1            
   2            
   2            

 

希望实现:[组别]相同[列2]单元格合并


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/19 9:49:00 [只看该作者]

怎么个合并法?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/19 9:52:00 [只看该作者]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/19 9:53:00 [只看该作者]

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

 

 具体请上传例子


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


加好友 发短信
等级:幼狐 帖子:164 积分:1553 威望:0 精华:0 注册:2011/8/16 7:40:00
  发帖心情 Post By:2014/12/19 10:16:00 [只看该作者]

   组别
 列1 列2   
1     组别=1的被合并   
1    
2     组别=2的被合并   
2    
3   组别=3的被合并
3  
3  

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:164 积分:1553 威望:0 精华:0 注册:2011/8/16 7:40:00
  发帖心情 Post By:2014/12/19 11:18:00 [只看该作者]

代码好像有误,列3没合并,列1合并了.


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/19 11:21:00 [只看该作者]

 不能修改列3的。

 

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


 回到顶部