把名称改一下,month改为txtMount,year 改为txtYear
程序改为:
txtMonth.defautvalue = cstr(datepart("m",now()))
txtYear.defaultvalue = cstr(datepart("yyyy",now()))
if txtMonth.defautvalue="1" then
txtMonth.defautvalue="1"
txtYear.defaultvalue=cstr((datepart("yyyy",now())-1)
end if