Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "维修工单" '指定导出表
ex.filepath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Filter = "" '指定导出条件
ex.Export() '开始导出
MessageBox.Show("数据导出成功!","提示!")
End If
以上是我导出表的代码。
导出之后不包括表达式列,看帮助说如果要导出表达式列就要把表达式列改为数据列。我现在的问题是维修工单表里面有20多个表达式的字段。
请教各位高手我该如何处理呢?
[此贴子已经被作者于2013-4-26 17:00:52编辑过]