- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教，如何解决导出时出现错误提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26356)
-- 发布时间：2012/12/1 13:54:00
-- 请教，如何解决导出时出现错误提示
Dim dlg As New SaveFileDialog \'定一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
Dim ss As String
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
ss = dlg.FileName
If FileSys.FileExists("& ss &") = True Then
FileSys.DeleteFile("& ss &",2,2) \'则彻底删
End If
Dim cn As String
For Each cl As Col In Tables("S运输合同查询_Table1").Cols
Dim p As String = cl.Name
If Tables("S运输合同查询_Table1").Cols(p).Visible Then
cn = cn & p & ","
End If
Next
cn = cn.TrimEnd(",","")
Dim ex As New Exporter
ex.SourceTableName = "S运输合同查询_Table1" \'指定导出表
ex.FilePath = ss \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = cn \'指定导出字段
ex.Export() \'开始导出
End If
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/12/1 14:06:00
--
用最简代码，看是否可以正常导出，然后逐步分析问题。
-- 发布时间：2012/12/1 15:04:00
--
用最简代码，看是否可以正常导出，然后逐步分析问题。
老兄，每次回复问题热情我喜欢。但没有分析到错误原因，没有回复到关键点上哦。估计是我没有说清楚。
有些电脑导出是没有问题的，也就是代码没有问题的。基本原因肯定会自己先排查的。
-- 发布时间：2012/12/1 15:17:00
--
既然分析了问题，那就定位到机子上去呗。对于某些深度改造的操作系统，有些windows的功能都是被削减掉了的，导致出错。
-- 发布时间：2012/12/1 15:17:00
--
系统问题，MDAC不正常。
-- 发布时间：2012/12/1 15:17:00
--
自己编码导出吧：
http://www.foxtable.com/help/topics/1148.htm