'msgbox(Tables("做货_Table1").DataTable.Name)
'=上货明细
Dim dlg As New SaveFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
Dim ex As New Exporter
ex.SourceTableName = "做货_Table1"
ex.filepath = dlg.FileName
ex.Format = "Excel"
ex.Export()
MessageBox.Show("導出完畢!", "提示")
End If
提示不存在“做货_Table1” 的Datatable.
但是
msgbox(Tables("做货_Table1").DataTable.Name)
=上货明细
如果改为
ex.SourceTableName = "上货明细"
则为导出所有列,但是只需要导出"做货_Table1"所显示的列
(上一贴乱码,重发一遍)