参考; If(Exist(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls") = True ,if(msgbox(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls"+char(10)+char(13)+char(13)+"文件已存在!是否复盖?",2)= True ,ExportDBFile(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls",6,"产品实际成本") And msgbox("产品成本计算单("+text(year(today()))+"."+[月份]+").xls"+char(10)+char(13)+char(13)+"文件导出成功!",0),msgbox("已取消数据导出!",0)),ExportDBFile(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls",6,"产品实际成本") And msgbox("产品成本计算单("+text(year(today()))+"."+[月份]+").xls"+char(10)+char(13)+char(13)+"文件导出成功!",0))
|