关于组合框的问题
如图:程序运行时,如果选择组合框的默认项,能够正常运行;如果选择了其他项,输入正确密码再点“确定”,则提示不能访问选定表:
请问是什么原因?应该如何解决?
“确定”按纽的click代码如下:
IF EMPTY().or.EMPTY(thisform.text2.value)
MESSAGEBOX('用户名和密码均不能为空,请重新输入!',48,'提醒')
''
thisform.text2.value=''
else
USE data\qybzhgl!xtyhb
cx=ALLTRIM()
cy=ALLTRIM(thisform.text2.value)
SET EXACT ON
SET ORDER TO yhxm
SEEK cx
IF ALLTRIM(xtyhb.yhxm)=cx.and.alltrim(xtyhb.yhmm)=cy
chm=ALLTRIM(xtyhb.yhxm)
cmm=ALLTRIM(xtyhb.yhmm)
rank=ALLTRIM(xtyhb.yhqx)
thisform.Release
USE
ELSE
cn=cn+1
cmessagetitle='提示'
cmessagetext='用户名或密码错误,请重新输入!'
ndialogtype=4+32
naswer=MESSAGEBOX(cmessagetext,ndialogtype,cmessagetitle)
DO case
CASE naswer=6
''
thisform.text2.Value=''
CASE naswer=7
cmessagetitle='警告'
cmessagetext='不要乱来!'
ndialogtype=0+48
MESSAGEBOX(cmessagetext,ndialogtype,cmessagetitle)
thisform.Release
quit
ENDCASE
IF cn=3
cmessagetitle='警告'
cmessagetext='你无权使用本系统!'
ndialogtype=0+48
MESSAGEBOX(cmessagetext,ndialogtype,cmessagetitle)
thisform.Release
USE
quit
ENDIF
ENDIF
SET EXACT off
ENDIF
[ 本帖最后由 陶然愚者 于 2012-12-18 12:11 编辑 ]