VB简单判断问题...求助..

程序目的想比较当前数据库内本月出生的人赋给list1.list(i)但是判断上出问题..Dim conn As New adodb.ConnectionDim rs As New adodb.RecordsetDim aa(128)Dim tt, tyconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "ziliao.mdb"conn.Opensql = "select * from jiben order by aday"rs.Open sql, conni = 0tt = Format(Month(Date), "00") 'tt的值为02Do While Not rs.EOFty = Left$(rs("aday"), 2) 'ty的值根据rs.MoveNext从01到12If ty = tt Then '判断是否本月份aa(i) = rs("name")i = i + 1End Ifrs.MoveNextLoop

热心网友

你用的是ADO函数和设计器完成的,所以要判断一下设计器设计的时候提供数据源是否成功,所提供数据是只读还是共享,还有就是ADO函数的引用

热心网友

用 IF THEN ELSE 语句会简单些。 详细INPUT等语句我想不用我写了吧。。。。