不用iif判断，用format转换为字符类型就不会有错了
循环赋值：
AdoRc.Open strsql, mobjConn, adOpenStatic, adLockReadOnly
while not AdoRc.eof
amount = Val(format(AdoRc.Fields("Amount").Value))
department = format(AdoRc.Fields("Department"))
datitime = format(AdoRc.Fields("Date"),"yyyy-mm-dd")
name = format(AdoRc.Fields("Name"))
UserID =format(AdoRc.Fields("UserId"))
AdoRc.movenext
wend
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024