- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]将临时表导出到ACC出错（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106430)
-- 发布时间：2017/9/8 13:45:00
-- [求助]将临时表导出到ACC出错（已解决）
用QueryBuilder生成的临时表导出到ACC出错，请各位老师指教，谢谢！！
代码如下。说明：黄色部分是排除“xgsj”列，原因是该列在数据结构表的数据类型为空白。
Dim dt As DataTable = DataTables("BWXB")
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
Dim colNames As String
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
For Each c As DataCol In dt.DataCols
If c.Name <> "xgsj" Then
colNames += "," & c.Name
End If
Next
Dim ex As New Exporter
ex.SourceTableName = dt.Name
ex.Fields = colNames
ex.filepath = dlg.FileName \'指定目标文件
ex.Export()
PopMessage("表已导出","提示", PopIconEnum.Infomation, 5)
End If
截图：
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获2.png
[此贴子已经被作者于2017/9/8 13:56:54编辑过]
-- 发布时间：2017/9/8 13:48:00
--
ex.Fields = colNames.trim(",")
-- 发布时间：2017/9/8 13:57:00
--
谢谢有点甜老师的指教，问题解决，再次感谢！！