Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = MainTable.Name '指定导出表
ex.filepath = dlg.FileName '指定目标文件
If MainTable.Name = "客户管理" Then
ex.Fields = "上游客户,品牌,商品车,备注" '指定导出字段
ElseIf MainTable.Name = "车辆管理"
ex.Fields = "车牌号,驾驶员,车辆类型,承运单位" '指定导出字段
ElseIf MainTable.Name = "动态管理"
ex.Fields = "省份,城市" '指定导出字段
ElseIf MainTable.Name = "上游运价管理"
ex.Fields = "上游客户,品牌,商品车,上游始发地,上游到达地,上游里程,上游单价,上游单台估价,起始日期,终止日期" '指定导出字段
ElseIf MainTable.Name = "下游运价管理"
ex.Fields = "上游客户,品牌,商品车,实际发车地,实际到达地,车辆类型,下游单价,起始日期,终止日期" '指定导出字段
ElseIf MainTable.Name = "运单管理"
ex.Fields = "上游客户,商品车,运输单号,VIN码,台数,上游发车地,上游到达地,上游里程,交车单位,计划日期,运单备注" '指定导出字段
End If
ex.Filter = "[_Identify] Is Null" '指定导出条件
ex.Export() '开始导出End If
Dim Result As DialogResult
Result = MessageBox.Show("导出成功,是否打开所导出文件?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
End If
下工具栏的按钮为以上代码，想实现当主表变化后，能导出相应的主表的表头。可以导出，但导出后excel打开时提示错误，如图
此主题相关图片如下：报错.png
加好友 
发短信
Post By：2022/4/8 7:24:00 [只看该作者]
