table窗体代码合并代码会写With Tables("包材检验报告编辑_检验明细")
.MergeMode = MergeModeEnum.Standard '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add("检验项目") '加入要合并的列
.MergeCols.Add("类别")
.MergeSort = "类别,检验项目" '设置合并模式下的排序方式
.AllowMerge = True '启用合并模式
End With
希望导出EXCEL文件后也是同列合并单元格的，请教老师怎么写呢
Dim Book As New XLS.Book(ProjectPath & "templets\包材检验报告.xls")
Dim r As Row = Forms("包材检验").controls("包材检验表").Table.Current
Dim fl As String = "\\192.168.1.18\$fill$\PG\BCJianNianDan\" & r("检验编号")& r("供应商").replace("*","X") & "检验报告.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2018/6/29 0:13:00 [只看该作者]
