以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新版使用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95438)
--  作者：gcc123
--  发布时间：2017/1/19 18:15:00
--  新版使用

 

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

 

 


图片点击可在新窗口打开查看此主题相关图片如下：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("开出发票").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)
Tables("油品发货记录").SaveExcel("C:\\2016年EXCELL备份\\油品发货记录.xls","油品发货记录",flg)
Tables("城建对账").SaveExcel("C:\\2016年EXCELL备份\\城建对账.xls","城建对账",flg)
End If

Syscmd.Project.Exit(True)

[此贴子已经被作者于2017/1/19 18:15:57编辑过]
--  作者：有点色
--  发布时间：2017/1/19 19:05:00
--  

加上save代码

 

for each dt as datatable in datatables
    dt.Save
Next
--  作者：gcc123
--  发布时间：2017/1/19 22:58:00
--  回复：（有点色）加上save代码 for each dt ...
这段代码加到最后 还是出现提示窗口 是不是要删除或整合一些代码
--  作者：有点色
--  发布时间：2017/1/20 0:29:00
--  
以下是引用gcc123在2017/1/19 22:58:00的发言：
这段代码加到最后 还是出现提示窗口 是不是要删除或整合一些代码

 

不是加到最后

 

for each dt as datatable in datatables
    dt.Save
Next

 

Syscmd.Project.Exit(False)