Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.FileName = "人员信息表" & Format(Date.Now, "yyyyMMdd") & ".xls"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "人员信息" '指定导出表
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "编号,姓名,部门" '指定导出字段
ex.Export() '开始导出
messagebox.show("已完成EXCEL表格的导出.")
End If
通过上述代码，导出的EXCEL表格的指定字段记录，本来是数值型的，导出后成字符型了，怎样导出的数据类型与狐表里表字段类型一样
加好友 
发短信
Post By：2021/1/18 8:57:00 [只看该作者]
