一个查询问题请版主给看一下,谢谢!!
| 一个查询的问题请高手指点一下!!
这是查询键里的代码,问题是怎么才能按日期查询,从XXXX年XX月XX日到XXXX年XX月XX日
,我不知道过滤的条件怎么写!请指点一下!!
*——jjj是转换后的字符型日期 jjj=allt(thisform.text1.value) *——lll是编号 lll=allt(thisform.text2.value) *——声明变量，用来保存查询条件 LOCAL FindString *——查询条件默认值为逻辑真(.T.) FindString =".T." *——如果“txt编号”文本框非空,字符日期+编号 IF !EMPTY(ALLTRIM(jjj+lll)) FindString=FindString + "AND '"+ALLTRIM(jjj+lll) + "' $ no" ENdIF *——如果姓名文本框非空 IF !EMPTY(ALLTRIM(thisform.text4.value)) FindString=FindString + " AND '"+ALLTRIM(thisform.text4.value) + "' $ name1" ENDIF *——如果是否结款文本框非空 IF !EMPTY(ALLTRIM(thisform.combo1.value)) FindString=FindString + " AND '"+ALLTRIM(thisform.combo1.value) + "' $ yes" ENDIF SELECT szsj *——设置过滤条件 SET FILTER TO &FindString GO TOP *——刷新表单 THISFORM.Refresh 请各位老师指点一下 |
