主题：使用数据备份、数据恢复、数据上报按钮时，选择“取消”出现成功提示！

使用数据备份、数据恢复、数据上报按钮时，选择“取消”出现成功提示！怎样才能改成“错误的提示”！！！egd文件下载

-=-=-=- 以下内容由 杨浩 在 2008年10月15日 07:44pm 时添加 -=-=-=-
意思是选择“取消”时，系统提示“数据备份错误！”

不好意思又要麻烦你们了！！！

呵呵，看来楼主没能理解这些按钮中的公式内容。
修改一个供你慢慢体会吧。
[数据恢复]原公式：eval("ClearGrid("""+Substitute(ListGrids(),"|",""") And ClearGrid(""")+""")") And Setvariable("%b%",[%d%]) and import("表1",[%b%],"表1","") and  delfor("表一","姓名","=","") And Do(464) And MsgBox("数据恢复成功!",0)
修改后的公式：if(MsgBox("你取消了数据恢复操作!",2)=true,eval("ClearGrid("""+Substitute(ListGrids(),"|",""") And ClearGrid(""")+""")") And Setvariable("%b%",[%d%]) and import("表1",[%b%],"表1","") and  delfor("表一","姓名","=","") And Do(464) And MsgBox("数据恢复成功!",0),MsgBox("你取消了数据恢复操作!",0))

具体修改原理：
if(MsgBox("你取消了数据恢复操作!",2)=true,原公式,MsgBox("你取消了数据恢复操作!",0))

还是不对！！！

点击取消还是提示数据恢复成功！！！

if(MsgBox("你你真要执行数据恢复操作么？",2)=true,eval("ClearGrid("""+Substitute(ListGrids(),"|",""") And ClearGrid(""")+""")") And Setvariable("%b%",[%d%]) and import("表1",[%b%],"表1","") and  delfor("表一","姓名","=","") And Do(464) And MsgBox("数据恢复成功!",0),MsgBox("你取消了数据恢复操作!",0))

完全行的，你再试试！

我指的选择备份文件时，不选择，点击“取消”还是提示数据恢复成功！！！

if(MsgBox("你真要执行数据备份操作么？",2)=true,Setvariable("%b%",[%e%]) and Save() And BackupFile([%b%]) and DelFile(docdir+"*.egd.bak") and DelFile(docdir+"*.egd.txt") And MsgBox("数据备份成功!",0),MsgBox("你取消了数据备份操作!",0))

数据备份按钮的公式这样设置试试？？
If((Setvariable("%b%",[%e%]) and Save() And BackupFile([%b%]) and DelFile(docdir+"*.egd.bak") and DelFile(docdir+"*.egd.txt"))= True ,MsgBox("数据备份成功!",0),MsgBox("数据备份失败!",0))

我发现楼主根本不动脑筋！好象也不看看帮助文件！