专家坐堂-foxtable设置自由合并模式后导出excel变了Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  foxtable设置自由合并模式后导出excel变了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69504)

--  作者：雁过不留痕8
--  发布时间：2015/6/6 10:58:00
--  foxtable设置自由合并模式后导出excel变了
如图foxtable设置自由合并模式后导出excel变了，原来合并的行又分开了，变成这样了

装箱清单

堆垛数箱数箱条码条形码资产编号出厂编号标识代码

1 1 6230019000000001558558 6230001000001123458202 00000112345820 00000112345820 623000100000112345820

1 1 6230019000000001558558 6230001000001123458219 00000112345821 00000112345821 623000100000112345821

1 1 6230019000000001558558 6230001000001123458226 00000112345822 00000112345822 623000100000112345822

1 1 6230019000000001558558 6230001000001123458233 00000112345823 00000112345823 623000100000112345823

1 1 6230019000000001558558 6230001000001123458240 00000112345824 00000112345824 623000100000112345824

1 1 6230019000000001558558 6230001000001123458257 00000112345825 00000112345825 623000100000112345825

1 1 6230019000000001558558 6230001000001123458264 00000112345826 00000112345826 623000100000112345826

1 1 6230019000000001558558 6230001000001123458271 00000112345827 00000112345827 623000100000112345827

1 1 6230019000000001558558 6230001000001123458288 00000112345828 00000112345828 623000100000112345828

1 1 6230019000000001558558 6230001000001123458295 00000112345829 00000112345829 623000100000112345829

1 1 6230019000000001558558 6230001000001123458301 00000112345830 00000112345830 623000100000112345830

1 1 6230019000000001558558 6230001000001123458318 00000112345831 00000112345831 623000100000112345831

--  作者：雁过不留痕8
--  发布时间：2015/6/6 10:59:00
--
foxtable中堆垛数、箱数相同的都合并的，合并代码如下
With Tables("甘肃表装箱清单")
.MergeMode = MergeModeEnum.free \'自由合并模式
.MergeCols.Clear() \'清除原来的合并列
.MergeCols.Add("装箱清单_堆垛数") \'加入要合并的列
.MergeCols.Add("装箱清单_箱数") \'加入要合并的列
.MergeCols.Add("装箱清单_箱条码") \'加入要合并的列
\'
.AllowMerge = True \'启用合并模式
End With

--  作者：雁过不留痕8
--  发布时间：2015/6/6 10:59:00
--
怎样才能导出excel是合并模式的

--  作者：雁过不留痕8
--  发布时间：2015/6/6 11:00:00
--

箱数箱条码条形码资产编号出厂编号

1 6230019000000001558558 6230001000001123458202 00000112345820 00000112345820

6230001000001123458219 00000112345821 00000112345821

6230001000001123458226 00000112345822 00000112345822

6230001000001123458233 00000112345823 00000112345823

6230001000001123458240 00000112345824 00000112345824

6230001000001123458257 00000112345825 00000112345825

6230001000001123458264 00000112345826 00000112345826

6230001000001123458271 00000112345827 00000112345827

6230001000001123458288 00000112345828 00000112345828

6230001000001123458295 00000112345829 00000112345829

6230001000001123458301 00000112345830 00000112345830

6230001000001123458318 00000112345831 00000112345831

6230001000001123458325 00000112345832 00000112345832

6230001000001123458332 00000112345833 00000112345833

6230001000001123458349 00000112345834 00000112345834

--  作者：雁过不留痕8
--  发布时间：2015/6/6 11:03:00
--
合并和导出代码
With Tables("甘肃表装箱清单")
.MergeMode = MergeModeEnum.free \'自由合并模式
.MergeCols.Clear() \'清除原来的合并列
.MergeCols.Add("装箱清单_堆垛数") \'加入要合并的列
.MergeCols.Add("装箱清单_箱数") \'加入要合并的列
.MergeCols.Add("装箱清单_箱条码") \'加入要合并的列
\'
.AllowMerge = True \'启用合并模式
End With
DataTables("甘肃表装箱清单").save
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("甘肃表装箱清单").SaveExcel(dlg.FileName, "甘肃表装箱清单") \'保存文件
End If

--  作者：sloyy
--  发布时间：2015/6/6 11:22:00
--
有2个办法实现:

1 先取消合并模式后导出数据,导出excel报表后再设置合并模式

2 直接SaveExcel