此主题相关图片如下:合并.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-9/20199316165737152.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
排序时都挨在一起,合并后有的又分开的,什么原因?
谢谢!