关于运行程序弹出程序错误对话框的问题
我做的系统里有这样一个用户信息修改的表单: 用户名:text1 密码:text2
新用户名:text3 新密码text4
(command修改) (command 取消)
表单初始化的代码我写不好,command的click事件的代码我写了。下面是修改的click事件的代码
Use sysuser shar
SELECT sysuser
LOCATE FOR 用户名=ALLTRIM(thisform.Text1.value)
IF FOUND() &&& 找到此学号的记录
IF ALLTRIM(thisform.Text2.value)==ALLTRIM(sysuser.密码)
REPLACE 密码 WITH ALLTRIM(thisform.Text4.value)
REPLACE 用户名 WITH ALLTRIM(thisform.Text3.value)
MESSAGEBOX("修改成功!",64,"提示")
thisform.release
ELSE
MESSAGEBOX("密码错误,请重新输入!",48,"提示")
thisform.Text2.value = ""
thisform.Text2.setfocus
ENDIF
ELSE &&& 没找到学号
MESSAGEBOX("无此用户名,请重新输入!",48,"提示")
thisform.Text1.value= ""
thisform.Text1.setfocus()
ENDIF
thisform.refresh
在表单单独运行的情况下,很正常,能成功修改。
但是连编后,在菜单中打开这个表单,输入信息后,点击修改,弹出:找不到文件“****\sysuser” 的程序错误对话框!请问是什么问题,能帮我解决吗?我是初学者,边学边做程序!麻烦了!
我后来查了资料后在主程序中加了set path 的语句,并且修改了工具----选项-----文件位置 里的默认目录和搜索路径,再连编后能够正常修改了。但是这肯定意味着如果换了文件夹的位置,就得在主程序中修改代码,所以,希望有更好的解决办法!