[高分]做了个日程管理，大家来看看，有点问题

[hkongm]

库表字段如下：
ID
Calyear
Calmonth
Calday
CalContent

首先SQL这么写的
rsSql = "select * from [UserCale] where Username = '"&Session("User")&"' and CalYear = '"&reyear&"' and CalMonth = '"&remonth&"' order by CalDay"
读出当前月的所有天的记录，不满31天没关系，只要能读出来就好

ASP页面我用了一个for i=1 to 31(比如)
显示出当前月所有天，第二个TD里显示content并加了判断
If rsList("CalDay") = i Then
Response.Write(rsList("CalContent"))
rsList.Movenext
Else
Response.Write("<a href='UserCaleAdd.asp?reyear=" &reyear& "&remonth=" &remonth& "&reday=" &i& "'>添加日程安排</a>")
End If
不过好像这个If不起作用？自己添加了一个条记录，用查询也能调出来，但是程序执行时还是走ELSE那条分支


明白人来解释一下阿？谢谢了，急！~

[kencorn]

If rsList("CalDay") = i Then
该成 If rsList("CalDay")-i = 0 Then 试试看

[showlin]

CalDay是字符型的吧？
If cint(rsList("CalDay")) = i Then

[hkongm]

都提示
错误类型：
(0x80020009)
发生意外。
/UserCaleList.asp, 第 109 行

[itzhiren]

If rsList("CalDay") = i Then
之前:
response.write "YES"&rsList("CalDay")&"OK"
看看输出什么?

[hkongm]

response.write "YES"&rsList("CalDay")&"OK"
看看输出什么?

输出YES15OK
没有问题啊，但是一加上cint就说发生意外？

[hkongm]

rsList("CalDay") = cstr(i)
就算改成这样还是“发生意外”错误

[JoyTiTi]

你直接把这个页的代码贴出来..
然后说明你那几个字段数据库都是怎么设置的.
解决问题就少走弯路了.

[kencorn]

错误类型：
(0x80020009)
发生意外。
/UserCaleList.asp, 第 109 行

把109行代码贴出来！
估计错误是在对象rslist和循环里面。

[TheKiss]

If Cint(rsList("CalDay")) = Cint(i) Then

[hkongm]

109行就是这个If...