各位高手,我是个菜鸟有个问题困扰了好几天,盼赐教.
我用的是VFP9.0,有个表"员工登记"有字段"出生日期"是日期型,TEXT1也是日期型如1999/01/01,COMBO1里放了<,>,=等,想做个查询,代码如下:
private CXRQ
CXRQ=ctod(出生日期)+alltrim()+ctod(thisform.text1.value)
Select * from 员工登记 where &CXRQ into cursor 临时员工登记

可是如何更改CXRQ这行代码都是出错,后面改用DTOC,改为如下:
CXRQ=DTOC(alltrim(出生日期))+alltrim()+DTOC(alltrim(thisform.text1.value))但还是错误“函数参数的值、类型或数目无效”，
改为CXRQ="DTOC(alltrim(出生日期))"+alltrim()+"DTOC(alltrim(thisform.text1.value))" 就错在SELECT这行上
请高手帮忙改改CXRQ这行代码,SELECT用其他字段运行没问题

如果THISFORM.TEXT1.VALUE的数据类型为日期型，代码如下：
CXRQ="出生日期"+alltrim()+"{^"+DTOC(thisform.text1.value)+"}"
如果THISFORM.TEXT1.VALUE的数据类型为字符型，代码如下：
CXRQ="出生日期"+alltrim()+"{^"+ALLTRIM(thisform.text1.value)+"}"

楼主的格式不对

如果THISFORM.TEXT1.VALUE的数据类型为日期型，代码如下：
CXRQ="出生日期"+alltrim()+"{^"+DTOC(thisform.text1.value)+"}"

还是提示错误“函数参数的值、类型或数目无效”

上传文件看看

图片删除

[此贴子已经被作者于2016-9-25 08:12编辑过]

private CXRQ
if empty(thisform.text1.value) && 判断列表框和文本框是否为空
    messagebox('请输入要查询的内容！',16,'系统提示')
   thisform.text1.setfocus
else
  do case
     case thisform.optiongroup2.value=1
     CXRQ="alltrim(员工编号)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=2
     CXRQ="alltrim(员工姓名)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=3
     CXRQ="alltrim(员工性别)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=4
     CXRQ="出生日期"+alltrim()+"{^"+DTOC(thisform.text1.value)+"}"
     case thisform.optiongroup2.value=5
     CXRQ="alltrim(员工学历)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=6
     CXRQ="alltrim(婚姻状况)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=7
     CXRQ="alltrim(员工民族)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=8
     CXRQ="alltrim(所学专业)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=9
     CXRQ="alltrim(入职岗位)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=10
     CXRQ="alltrim(家庭住址)"+alltrim()+"alltrim(thisform.text1.value)"
     case thisform.optiongroup2.value=11
     CXRQ="入职日期"+alltrim()+"{^"+DTOC(thisform.text1.value)+"}"
     case thisform.optiongroup2.value=12
     CXRQ="离职日期"+alltrim()+"{^"+DTOC(thisform.text1.value)+"}"
  ENDCASE
  local c as integer
  IF thisform.optiongroup1.value=1
  Select * from 员工登记 where &CXRQ into cursor 临时员工登记 &&cursor
  sele 临时员工登记
     c=reccount()
     if c<1
       messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
     ENDIF

代码运行有问题是你的问题。

建议楼主还是从基础学习吧，看下帮助文件中ALLTRIM()函数是如何用的。

我太菜了,就是一直找不到解决问题的方式,好几天了找了很多资料,还是没找到,求各位大神高手们再帮帮我吧