- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 用按钮将窗口中的表导出来的怎么全是乱码？（完美解决，谢谢狐爸） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30677)
-- 发布时间：2013/4/1 22:27:00
-- 用按钮将窗口中的表导出来的怎么全是乱码？（完美解决，谢谢狐爸）
窗口新建一按钮和table，并将table绑定到《回款明细》，Click的代码如下：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "回款" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If
结果打开就是这样的乱码：
此主题相关图片如下：ge.png
[此贴子已经被作者于2013-4-2 9:43:07编辑过]
-- 发布时间：2013/4/1 22:36:00
--
ex.Format = "Excel" \'导出格式为Excel
加上这句试试
-- 发布时间：2013/4/2 9:04:00
--
要不换个方法看看：
http://www.foxtable.com/help/topics/0559.htm
-- 发布时间：2013/4/2 9:43:00
--
谢谢狐爸,完美解决。
如下代码：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("回款明细_table1").SaveExcel(dlg.FileName, "回款") \'保存文件，注意加上“窗口_表名”
End If
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("回款明细_table1").SaveExcel(dlg.FileName, "回款") \'保存文件，注意加上“窗口_表名”
End If