在WIN8的操作系统上,只要一运行以下代码就程序直接闪退,在新装的windows2008服务器上,这台电脑刚开箱的,我连杀毒软件也没装,就装了个office2010,当我运行下面代码时就出现一个错误提示,提示内容是:“通用数据管理平台 已停止工作”,接着程序就退出了。
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
dlg.FileName = "库存查询.xls"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮\'
Tables("库存查询主窗口_Table_查询表").SaveExcel(dlg.FileName, "库存查询") \'保存文件
End If
注:此“库存查询主窗口_Table_查询表”的窗口中table类型是SQLQuery