我在管理项目-菜单设计-主菜单-程序菜单里增加了一个“dataout”的菜单,用来导出项目数据,代码如下:
If DataTables.Contains("Temp") = False Then
Dim q As new QueryBuilder
q.C
q.TableName = "临时表"
q.SelectString = "Select * from {TbCon} where false "
q.Build
End If
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter = "Access文件|*.accdb" '设置筛选器
dlg.OverwritePrompt = True
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
For Each dt As DataTable In DataTables
If dt.name <> "临时表" Then
DataTables("临时表").Fill("select * from {" & dt.name & "}", "pmcs", True)
End If
Dim ex As New Exporter
ex.SourceTableName = "临时表" '指定导出表
ex.FilePath = dlg.FileName
ex.Format = "Access2007"
ex.PassWord = "aaa"
ex.NewTableName = dt.Name
ex.Export
Next
End If
然后运行这个导出的时候,狐表就会自动关闭。
这是自动关闭的界面
此主题相关图片如下:无标题.png

这是错误的提示内容:
问题签名:
问题事件名称:
APPCRASH
应用程序名:
foxtable.exe
应用程序版本:
2014.5.12.1
应用程序时间戳:
536df72e
故障模块名称:
StackHash_ec37
故障模块版本:
6.1.7601.18229
故障模块时间戳:
51fb1072
异常代码:
c0000374
异常偏移:
000ce753
OS 版本:
6.1.7601.2.1.0.256.1
区域设置 ID:
2052
其他信息 1:
ec37
其他信息 2:
ec37b64ad567cd008928d7225d2bf5bd
其他信息 3:
1d18
其他信息 4:
1d18037ab9d75bb223347ce33ec82f00
联机阅读隐私声明:
http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0804
如果无法获取联机隐私声明,请脱机阅读我们的隐私声明:
C:\Windows\system32\zh-CN\erofflps.txt
[此贴子已经被作者于2014-5-26 23:02:20编辑过]