请问版主,如果根据日期来查询,代码是怎样写?

在文本框text4中输入日期,但不能用以代码查询?
IF !EMPTY(THISFORM.TEXT4.VALUE)
cExpr=cExpr+".AND.入库日期=["+ALLTRIM(THISFORM.TEXT4.VALUE)+"]"
ENDIF
SELECT * FROM wprk WHERE &cExpr

CTOD转

在文本框text4中输入日期,但不能用以代码查询?
IF !EMPTY(THISFORM.TEXT4.VALUE)
cExpr=cExpr+".AND.入库日期=["+ALLTRIM(THISFORM.TEXT4.VALUE)+"]"
ENDIF
SELECT * FROM wprk WHERE &cExpr
*---------------------------------------------------------------
在文本框text4中输入日期,但不能用以代码查询?
IF !EMPTY(THISFORM.TEXT4.VALUE)
cExpr=cExpr+".AND.入库日期=Ctod(["+Dtoc(THISFORM.TEXT4.VALUE)+"])"
ENDIF
SELECT * FROM wprk WHERE &cExpr

[[italic] 本帖最后由 Tiger5392 于 2007-12-30 19:32 编辑 [/italic]]

再次感激版主的指点,你真是一位热心好人.但我还有一问题请版主帮助,怎样改为可以按月或日或年月日查询?

MONTH( ) 函数,返回给定日期或日期时间表达式的月份值。
DAY( ) 函数,以数值型返回给定日期表达式或日期时间表达式是某月中的第几天。

老兄,不行啊!

原理一样。多设置几个文本框。

YEAR()锁定查询的年份
MONTH()锁定查询的月份

就可以查询　指定年的指定月内，　符合条件的记录

多谢两位高手热心指点!但不知是本人水平问题,不太理解两位高手的意思,
能不能写出具体的代码呢?或改以下的代码?
在文本框text4中输入日期,既可以按日查询,也可以按月查询?
IF !EMPTY(THISFORM.TEXT4.VALUE)
cExpr=cExpr+".AND.入库日期=Ctod(["+Dtoc(THISFORM.TEXT4.VALUE)+"])"
ENDIF
SELECT * FROM wprk WHERE &cExpr