| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- 使用数据备份、数据恢复、数据上报按钮时，选择“取消”出现成功提示！ (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=15167) |
| -- 作者：杨浩 -- 发布时间：2008/10/15 19:35:00 -- 使用数据备份、数据恢复、数据上报按钮时，选择“取消”出现成功提示！ 使用数据备份、数据恢复、数据上报按钮时，选择“取消”出现成功提示！怎样才能改成“错误的提示”！！！egd文件下载 -=-=-=- 以下内容由 杨浩 在 2008年10月15日 07:44pm 时添加 -=-=-=- 意思是选择“取消”时，系统提示“数据备份错误！” |
| -- 作者：杨浩 -- 发布时间：2008/10/15 20:07:00 -- 不好意思又要麻烦你们了！！！ |
| -- 作者：tzszw -- 发布时间：2008/10/15 21:20:00 -- 呵呵，看来楼主没能理解这些按钮中的公式内容。 修改一个供你慢慢体会吧。 [数据恢复]原公式：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)) 具体修改原理： |
| -- 作者：杨浩 -- 发布时间：2008/10/15 23:13:00 -- 还是不对！！！ |
| -- 作者：杨浩 -- 发布时间：2008/10/15 23:22:00 -- 点击取消还是提示数据恢复成功！！！ |
| -- 作者：tzszw -- 发布时间：2008/10/15 23:36:00 -- 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)) 完全行的，你再试试！ |
| -- 作者：杨浩 -- 发布时间：2008/10/15 23:58:00 -- 我指的选择备份文件时，不选择，点击“取消”还是提示数据恢复成功！！！ |
| -- 作者：tzszw -- 发布时间：2008/10/16 0:08:00 -- 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)) |
| -- 作者：wjq1072 -- 发布时间：2008/10/16 0:10:00 -- 数据备份按钮的公式这样设置试试？？ If((Setvariable("%b%",[%e%]) and Save() And BackupFile([%b%]) and DelFile(docdir+"*.egd.bak") and DelFile(docdir+"*.egd.txt"))= True ,MsgBox("数据备份成功!",0),MsgBox("数据备份失败!",0)) |
| -- 作者：tzszw -- 发布时间：2008/10/16 0:10:00 -- 我发现楼主根本不动脑筋！好象也不看看帮助文件！ |