以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么排序后标准合并相同的字段会分开合并  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140333)
--  作者：happyft
--  发布时间：2019/9/3 16:21:00
--  为什么排序后标准合并相同的字段会分开合并

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

如上图窗口打开的代码
Dim tbl As Table = e.Form.Controls("Table1").Table
    tbl.sort = "工位"
    With tbl  \'设置合并模式
        .MergeMode = MergeModeEnum.Standard \'标准合并模式
        .MergeCols.Clear() \'清除原来的合并列
        .MergeCols.Add("工位") \'加入要合并的列
        .AllowMerge = True \'启用合并模式
    End With
End If
导出到excel按钮的代码
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim flg As New SaveExcelFlags
    flg.CellStyle = True \'保存单元格样式
    flg.MergedRanges = True \'保存合并模式,默认为true
    flg.VisibleOnly = True \'保存可见列,默认为true
    Tables(e.form.name & "_Table1").SaveExcel(dlg.FileName, "Sheet1",flg)  \'保存文件
End If

排序时都挨在一起,合并后有的又分开的,什么原因?
谢谢!
--  作者：狐狸爸爸
--  发布时间：2019/9/3 16:26:00
--  
可能后面有空格，回车等特殊符号。

"J9 " 并不等于  "J9"
--  作者：狐狸爸爸
--  发布时间：2019/9/3 16:26:00
--  
增加一表达式列，表达式设置为：

len(那个列)

你就知道问题所在了
--  作者：HappyFt
--  发布时间：2019/9/3 19:06:00
--  
不是这个原因,前面都有去除空格等的代码的,原来是必须要加上排序
.MergeSort = "工位" 就可以了  

还有个问题请教下,导出的excel表都是光头的,如果不用在excel中处理,要在导出表的上面加上

XXXX表单的表头字样,并且如果是有8列,就将最上面的8列合并后再显示要怎么才能实现?
--  作者：有点蓝
--  发布时间：2019/9/3 20:39:00
--  
导出后使用代码插入和添加表头