用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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-9/20179813442045224.png)
此主题相关图片如下:捕获2.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-9/20179813443881331.png)
[此贴子已经被作者于2017/9/8 13:56:54编辑过]