Today2 = Now
sql3 = "update info set endtime= today2 where sno='" & Trim(Text2.Text) & "'"
conn.Execute (sql3) '更新结束的时间（还可以用 insert）
还有

Timer1 = DateDiff("n", Today1, Today2)
 sql4 = "update newcard set moneys=moneys - Timer1 * 0.17  where sno='" & Text2.Text & "'"
conn.Execute (sql4) '更新表中的金额

运行时提示无效的列名，就是他today2和timer1，要是把today2加上双引号也是有问题
请问我是哪里出错拉？谢谢大家

sql3 = "update info set endtime='" & today2 & "' where sno='" & Trim(Text2.Text) & "'" sno你知道用&连接,endtime怎么就不知道呢？

sql3 = "update info set endtime='& today2 & ' where sno=' & Trim(Text2.Text) & "'" 我是这样改的，没有双引号，运行时提示 从字符转换成datetime类型时出错 endtime在表中是datetime类型的 哪里有什么转换呀？

不好意思啊，是我给弄错拉就是你说的那样
现在不知道为什么
sql4 = "update newcard set moneys='"&(moneys - Timer1 * 0.17)&"'  where sno='" & Text2.Text & "'"
总显示的是Timer1 * 0.17的值而不是moneys - Timer1 * 0.17的值

sql4 = "update newcard set moneys=moneys - " & (Timer1 * 0.17) & "  where sno='" & Text2.Text & "'"

觉得你脑子是不太好使。

[此贴子已经被作者于2005-5-13 10:41:13编辑过]

是什么库？
如果是Access时间字段要用#