添加记录的问题求助
在表单中有一字段(出生日期)是日期型的,设计了一个添加按钮,代码如下:if empty(alltrim(thisform.txt编号.value))
messagebox("职员号不能为空",48,"错误")
thisform.txt编号.setfocus
else
inID=alltrim(thisform.txt编号.value)
inName=alltrim(thisform.txt姓名.value)
inSex=alltrim(thisform.combo1.value)
inBirth=alltrim(thisform.txt出生日期.value))
inLearn=alltrim(thisform.combo4.value)
inPolitics=alltrim(thisform.combo2.value)
inPhone=alltrim(thisform.txt籍贯.value)
inAddress=alltrim(thisform.combo3.value)
inDepartment=alltrim(thisform.txt联系方法.value)
injjpj=alltrim(thisform.edit1.value)
set order to 编号
seek inID
if !found()
insert into dyxx(编号,姓名,性别,出生日期,语种,学历,籍贯,星级,联系方法,简介评价) value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,injjpj)
messagebox("添加成功!",48,"信息")
thisform.txt编号.value=""
thisform.txt姓名.value=""
thisform.combo1.value=""
thisform.txt出生日期.value=""
thisform.combo4.value=""
thisform.combo2.value=""
thisform.txt籍贯.value=""
thisform.combo3.value=""
thisform.txt联系方法.value=""
thisform.edit1.value=""
else
messagebox("此职员号已存在,请另输一个",48,"错误")
thisform.txt编号.value=''
thisform.txt编号.setfocus
endif
endif
运行时会报数据类型不配。想过去可能是出生日期的问题,可是不知道怎么改啊?