向各位请教，如何将三个text框中的数据（字符串或数字）和起来提交到一个字段（该字段为日期字段）

Question

rs.Fields("YourDateField")=CDate(txtYear.Text & "-" & txtMonth.Text & "-" & txtDay.Text)

Answer 1

首先先感谢吴大侠的帮助，可我还有些问题，rs是什么？怎样定义的rs?
我用的是listbox，里面的选项是“1999年，2000年，2001年”三个选项，这三个选项怎样负值？负值以后，怎样与“1月，2月...12月”“1日，2日，3日....31日”这些选项负值后相加再写如日期格式的字段中，在此请教，不胜感激~~~~谢谢谢谢

Answer 2

rs就是数据集啊,用它把数据存到字段里啊.
CDate(Format(lstYear.List & lstMonth.List & lstDay,"yyyy-mm-dd"))
上述语句会将形如
"2001年11月08日"的字符串转化成"2001-11-08",然后再转成日期型就行了.

Answer 3

dim xdate 
xdate=(txtYear.Text & "-" & txtMonth.Text & "-" & txtDay.Text) 
if isdate(xdate) then
rs.Fields("YourDateField")=CDate(xdate)
else
endif

Answer 4

如果是字符串:txt.text=txt1.text & txt2.text & txt3.text                         如果是数字:txt.text=txt1.text + txt2.text + txt3.text

Answer 5

作为输入年的Text，限制输入四位大于1900的数据；
作为输入月的Text，限制输入1-12的数据；
作为输入日的Text，根据年月Text来判断输入的数据是否有效，有四种情况（1-28或1-29或1-30或1-31）；
最后用dateserial(txtYear.text,txtMonth.text,txtDay.text)来处理。

Answer 6

我觉得用一个TextBox，
限制输入条件，
做一个比较完全的控件级确认，
然后连到数据库上比较好呢~