用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编辑过]
加好友 
发短信
Post By：2017/9/8 13:45:00 [只看该作者]
