主题：新版使用

 

使用新版狐表后自己添加的退出按钮  点击后出现提示窗口 之前旧版不会出现 也自动保存 什么原因？

 

 

此主题相关图片如下：tuicvhu.jpg

If ComputerName = "guochangqing" Then
Dim flg As New SaveExcelFlags
Tables("应付应收录入").SaveExcel("C:\2016年EXCELL备份\应付应收录入.xls","应付应收录入",flg)
Tables("扣款录入").SaveExcel("C:\2016年EXCELL备份\扣款录入.xls","扣款录入",flg)
Tables("已收款录入").SaveExcel("C:\2016年EXCELL备份\已收款录入.xls","已收款录入",flg)
Tables("車鲁H7A751").SaveExcel("C:\2016年EXCELL备份\車鲁H7A751.xls","車鲁H7A751",flg)
Tables("車鲁H7A788").SaveExcel("C:\2016年EXCELL备份\車鲁H7A788.xls","車鲁H7A788",flg)
Tables("車鲁H7A855").SaveExcel("C:\2016年EXCELL备份\車鲁H7A855.xls","車鲁H7A855",flg)
Tables("車鲁H7D773").SaveExcel("C:\2016年EXCELL备份\車鲁H7D773.xls","車鲁H7D773",flg)
Tables("車鲁H7H127").SaveExcel("C:\2016年EXCELL备份\車鲁H7H127.xls","車鲁H7H127",flg)
Tables("車鲁H7H165").SaveExcel("C:\2016年EXCELL备份\車鲁H7H165.xls","車鲁H7H165",flg)
Tables("車鲁H7H169").SaveExcel("C:\2016年EXCELL备份\車鲁H7H169.xls","車鲁H7H169",flg)
Tables("車鲁H7L322").SaveExcel("C:\2016年EXCELL备份\車鲁H7L322.xls","車鲁H7L322",flg)
Tables("車鲁H7L355").SaveExcel("C:\2016年EXCELL备份\車鲁H7L355.xls","車鲁H7L355",flg)
Tables("車浙B8Q671").SaveExcel("C:\2016年EXCELL备份\車浙B8Q671.xls","車浙B8Q671",flg)
Tables("車浙B8S581").SaveExcel("C:\2016年EXCELL备份\車浙B8S581.xls","車浙B8S581",flg)
Tables("車浙B8U201").SaveExcel("C:\2016年EXCELL备份\車浙B8U201.xls","車浙B8U201",flg)
Tables("車浙B8Y315").SaveExcel("C:\2016年EXCELL备份\車浙B8Y315.xls","車浙B8Y315",flg)
Tables("車浙B8Y317").SaveExcel("C:\2016年EXCELL备份\車浙B8Y317.xls","車浙B8Y317",flg)
Tables("車浙B82D22").SaveExcel("C:\2016年EXCELL备份\車浙B82D22.xls","車浙B82D22",flg)
Tables("車浙B3A371").SaveExcel("C:\2016年EXCELL备份\車浙B3A371.xls","車浙B3A371",flg)
Tables("車浙B9A236").SaveExcel("C:\2016年EXCELL备份\車浙B9A236.xls","車浙B9A236",flg)
Tables("車浙B82F98").SaveExcel("C:\2016年EXCELL备份\車浙B82F98.xls","車浙B82F98",flg)
Tables("車浙B82F99").SaveExcel("C:\2016年EXCELL备份\車浙B82F99.xls","車浙B82F99",flg)
Tables("总查询表").SaveExcel("C:\2016年EXCELL备份\总查询表.xls","总查询表",flg)
Tables("开出fa piao").SaveExcel("C:\2016年EXCELL备份\开出fa piao.xls","开出fa piao",flg)
Tables("进项fa piao").SaveExcel("C:\2016年EXCELL备份\进项fa piao.xls","进项fa piao",flg)
Tables("个人网银").SaveExcel("C:\2016年EXCELL备份\个人网银.xls","个人网银",flg)
Tables("公司网银").SaveExcel("C:\2016年EXCELL备份\公司网银.xls","公司网银",flg)
Tables("信用卡").SaveExcel("C:\2016年EXCELL备份\信用卡.xls","信用卡",flg)
Tables("备忘录").SaveExcel("C:\2016年EXCELL备份\备忘录.xls","备忘录",flg)
Tables("油品发货记录").SaveExcel("C:\2016年EXCELL备份\油品发货记录.xls","油品发货记录",flg)
Tables("城建对账").SaveExcel("C:\2016年EXCELL备份\城建对账.xls","城建对账",flg)
End If

Syscmd.Project.Exit(True)

加上save代码

 

for each dt as datatable in datatables
    dt.Save
Next

这段代码加到最后 还是出现提示窗口 是不是要删除或整合一些代码

 

不是加到最后

 

for each dt as datatable in datatables
    dt.Save
Next

 

Syscmd.Project.Exit(False)