Tag：动态查询

IF LEN(ALLTRIM(thisform.text132.Text))>1
IF allt(NowUser1)=="软件设计" OR allt(NowUser1)=="全县"
zfcg= "%"+ALLTRIM(thisform.text132.Text)+"%"
IF !EMPTY(zfcg)
 thisform.combo1.rowsource="SELECT DISTINCT ALLTRIM(dwmc) from passwd WHERE dwmc LIKE (zfcg) INTO CURSOR passwdh"
 select passwdh
 IF RECCOUNT()>0
 thisform.combo1.Visible= .T.  
 thisform.combo1.SetFocus
 ELSE
 wait windows "你输入的关键字未查找到相应的单位，请重新输入！……" at 100,40 timeout 1 nowait
  this.value=""
 this.SetFocus
endif
 ELSE
  thisform.combo1.rowsource="SELECT DISTINCT ALLTRIM(dwmc) from passwd INTO CURSOR passwdh"
 thisform.combo1.Visible= .T.  
 thisform.combo1.SetFocus 
 endif
ENDIF
endif

BCCN本地下载 

 

>> 评论

 

热门Tag：