主题:[讨论]求助:vf中的怪现象
下面是我一表单一个命令按扭的Click事件:
sele 6
select gly_id,mm,gly_name from pass_word ;
where lower(gly_id)=lower(allt(thisform.text1.value)) and mm=allt(thisform.text2.value) into array demo
*store allt(thisform.text1.value) to dl_1
if demo[1]='.T.'
*lowthisform.text1.value = thisform.text2.value and ;
if thisform.text3.value = thisform.text4.value
store allt(thisform.text3.value) to dl_3
*update pass_word set gly_id=dl_1 where gly_name=allt(demo[1,3])
update pass_word set mm=dl_3 where gly_name=allt(demo[1,3])
=messagebox('ID和密码修改成功!',0+64+0,'信息')
else
=messagebox('两次密码不统一,请重输入!',0+64+0,'错误')
thisform.text3.setfocus
endif
else
= messagebox('登录ID或密码错误!',0+64+0,'提示')
thisform.text1.setfocus
endif
一关掉这个窗口就提示“缺少IF ELSE ENDIF语句”
我找半天也找不到问题出在哪儿~~~~~~~初学者
现在都搞晕了,望高手指教一下!!!!
不胜感激!
sele 6
select gly_id,mm,gly_name from pass_word ;
where lower(gly_id)=lower(allt(thisform.text1.value)) and mm=allt(thisform.text2.value) into array demo
*store allt(thisform.text1.value) to dl_1
if demo[1]='.T.'
*lowthisform.text1.value = thisform.text2.value and ;
if thisform.text3.value = thisform.text4.value
store allt(thisform.text3.value) to dl_3
*update pass_word set gly_id=dl_1 where gly_name=allt(demo[1,3])
update pass_word set mm=dl_3 where gly_name=allt(demo[1,3])
=messagebox('ID和密码修改成功!',0+64+0,'信息')
else
=messagebox('两次密码不统一,请重输入!',0+64+0,'错误')
thisform.text3.setfocus
endif
else
= messagebox('登录ID或密码错误!',0+64+0,'提示')
thisform.text1.setfocus
endif
一关掉这个窗口就提示“缺少IF ELSE ENDIF语句”
我找半天也找不到问题出在哪儿~~~~~~~初学者
现在都搞晕了,望高手指教一下!!!!
不胜感激!