- 易表在线答疑 (http://www.egrid2000.com/dvbbs/index.asp)
-- 用户社区 (http://www.egrid2000.com/dvbbs/list.asp?boardid=2)
---- [求助]今天遇到菜单不好修改的新问题，特此求助一下如何解决！ (http://www.egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=11503)
-- 发布时间：2007/10/26 11:15:00
-- [求助]今天遇到菜单不好修改的新问题，特此求助一下如何解决！
今天遇到菜单不好修改的新问题，进行菜单设置时,总是报"下标越界"的错误提示,好象是菜单中对应的命令内容不全了,并且没办法修改,特此求助一下如何解决！
具体情况见下图:
-- 发布时间：2007/10/26 11:23:00
--
文件能发上来看看吗？
-- 发布时间：2007/10/26 11:27:00
--
[这个贴子最后由tzszw在 2007/10/28 07:01pm 第 2 次编辑]
文件能发上来看看吗？
好的,文件如下:egd文件下载
-- 发布时间：2007/10/26 11:51:00
--
呵呵，看看总版主们有没有高招，我实在是无能为力了！
-- 发布时间：2007/10/26 12:01:00
--
密码？
-- 发布时间：2007/10/26 12:24:00
--
其实这个问题好解决，只要先删除有问题的菜单节点，然后再依据“主系统”的“系统主窗口”的各相关命令按钮重新增加到系统菜单中即可，只是有一点点麻烦，更主要的是我不知是如何造成这样的问题？
-- 发布时间：2007/10/26 12:28:00
--
其实这个问题好解决，只要先删除有问题的菜单节点，然后再依据“主系统”的“系统主窗口”的各相关命令按钮重新增加到系统菜单中即可，只是有一点点麻烦，更主要的是我不知是如何造成这样的问题？
这样解决是可以，但是我是想如何恢复或者彻底解决这个问题！
-- 发布时间：2007/10/26 13:08:00
--
这样解决是可以，但是我是想如何恢复或者彻底解决这个问题！
是的，主要是要搞清形成问题的原因以及如何恢复或者彻底解决这个问题！
-- 发布时间：2007/10/26 15:04:00
--
搞不清原因:(
-- 发布时间：2007/10/27 13:49:00
--
文件的菜单已经损坏。
导致出错的原因估计我们是找不出来，本人推测还是和网络应用有关。
菜单损坏的具体表现为，表达式（公式）部分丢失。
下面是菜单中出错的公式：
客户档案维护if([客户资料外挂]=-1,CloseWindow()AndOpenFile(docdir+"gsmisaz.egd","azsq","fcq"
路道划分维护if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,CloseWindow()andOpenGrid("jbldfl",1),MsgBox("对不起
水价类别维护if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,CloseWindow()andOpenGrid("sj",1),MsgBox("对不起
基本参数维护if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,CloseWindow()andOpenGrid("基本信息",0),MsgBox("对不起
机器抄表处理if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,CloseWindow()andOpenGrid("MGHA",4),MsgBox("对不起
抄表数据修改if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,if([报表日期启用]=-1andNumber(day(today()))>[报表日期],MsgBox("对不起,已形成报表的当月数据不能再作任何修改!"
生成收费数据if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,CloseWindow()andOpenGrid("sf",6),MsgBox("对不起
批量非坐收开票if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,CloseWindow()andOpenGrid("sfpl",1),MsgBox("对不起
数据上报接收if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,openWindow(3),MsgBox("对不起,你无此操作权限!"
系统初始化if(username="==请选择用户名=="orusername="超级用户",If(msgbox("警告：本操作仅限于系统初始化,执行后将清除本系统所有数据!"+Char(13)+""+"单击'是'继续,单击'否'退出。"
数据备份恢复if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,MsgBox("对不起,此功能待开发!",0
系统高级设置if(username="==请选择用户名=="orusername="管理员"orusername="超级用户",CloseWindow()andOpenWindow(2),msgbox("对不起,你无此操作权限!"
文件另存为.if(username="==请选择用户名=="orusername="管理员"orusername="超级用户",CloseWindow()anddo(338),msgbox("对不起,你无此操作权限!"
切换到门户收费表if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,OpenGrid("sf"),MsgBox("对不起,你无此操作权限!"
切换到批量收费表if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,OpenGrid("sfpl"),MsgBox("对不起,你无此操作权限!"
切换到基本情况表if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,OpenGrid("jb"),MsgBox("对不起,你无此操作权限!"
切换到通用月报表if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,OpenGrid("通用月报表"),MsgBox("对不起,你无此操作权限!"
切换到欠费统计表if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,OpenGrid("欠费统计"),MsgBox("对不起,你无此操作权限!"
切换到抄见汇总表if(username="==请选择用户名=="orusername="超级用户"orusertype<=3,OpenGrid("抄见汇总表"),MsgBox("对不起,你无此操作权限!"