以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- 关于系统初始化问题 (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=4146) |
-- 作者:可可西里 -- 发布时间:2006/9/30 11:58:00 -- 关于系统初始化问题 egd文件下载 这是易海拾贝里面的案例,执行初始化后,所有表的数据全部删除。如果只想删除部分表的数据,又怎么处理?如:保留表三的数据,其余均初始化。求教! |
-- 作者:smileboy -- 发布时间:2006/9/30 12:35:00 -- loop效率太低,改用eval吧 egd文件下载 -=-=-=- 以下内容由 smileboy 在 2006年09月30日 00:40pm 时添加 -=-=-=- 修正一下,按钮改成这样: if([%b%]="",MsgBox("请选择保留的表名!",0),IF([%初始化密码%]="888",eval("ClearGrid("""+Substitute(Mid(Substitute("|"+ListGrids(),"|"+[%b%],""),1),"|",""") And ClearGrid(""")+""")"),MsgBox("密码错误,请重新输入!连接5次以上输入错误系统将会自动锁定确定按扭动3分钟.",0))) -=-=-=- 以下内容由 smileboy 在 2006年09月30日 00:41pm 时添加 -=-=-=- 锁定按钮的命令自己加上吧 |
-- 作者:czy -- 发布时间:2006/9/30 12:41:00 -- 放弃原公式中的loop吧。 这样速度更快: IF([%初始化密码%]="888" And [%次数%] <= 5,SetVariable("%初始化密码%","") And CloseWindow() And Eval("ClearGrid("""+Substitute(Substitute(ListGrids(),"表3|",""),"|",""") And ClearGrid(""")+""")") AndMsgBox("初始化完毕!",0) ,IF([%次数%] > 4,SetVariable("%次数%",180) And SetVariable("%A%","锁定"),SetVariable("%次数%",[%次数%]+1) And MsgBox("密码错误,请重新输入!连接5次以上输入错误系统将会自动锁定确定按扭动3分钟.",0))) |
-- 作者:可可西里 -- 发布时间:2006/9/30 13:06:00 -- 谢谢两位版主! |