exporter导出为excel时提示，excel无法导出（因为微软bug） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'MainTable = Tables("人事信息")

'Tables("人事信息").save()

'Dim lsc As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

'Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

'dlg.Filter= "Excel文件|*.xlsx" '设置筛选器

'If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

'Dim ex As new exporter

'ex.Format="excel"

'ex.SourceTableName="人事信息"

'ex.filepath=dlg.FileName

'ex.Fields=lsc.value

'ex.filter = " [人员选择] = True "

'ex.Export

''Tables("人事信息").SaveExcel(dlg.FileName, "人事信息") '此方法会导出全部文件

'End If

'MessageBox.show("已导出!")

主题：exporter导出为excel时提示，excel无法导出（因为微软bug）