While Not rs1.EOF If rs1.Fields(10) Is Null Then ————————————要求对象的错误 rs1.Fields(5) = rs1.Fields(10) ——————————这样写对吗？为什么值赋不过去！ rs1.Update End If b = rs1.Fields(10) ——b是date类型，这样赋值可以的吗？rs1.Fields(5)和 rs1.Fields(10)都日期类型 c = Now() str1 = DateDiff("n", b, c) rs1.Fields(10) = Now() rs1.Fields(9) = str1 rs1.Update a = "select * from card where cardid='" + rs1.Fields(0) + "'" rs2.Open a, conn1, adOpenKeyset, adLockPessimistic If str1 >= 1 Then rs2.Fields(1) = rs2.Fields(1) - 1 rs2.Update End If If rs2.Fields(1) <= 0 Then 提醒框.Text1 = rs2.Fields(0) 提醒框.Show rs2.MoveNext End If rs1.MoveNext Wend
