尚福进 发表于：2009-06-10 21:24:06
现在有一个表Table1,这个表中只有3个字段，分别是Variable1,Variable2,Variable3，共有记录10条。在下面的代码中，我尝试将Variable1的10个值都读出来，但是运行的结果是，只能读出来一个。请指点，代码哪里不对。谢谢！
Dim MyDb As Database
Dim MyDs As Recordset
Dim CNN As Connection
Set MyDb = CurrentDb
Dim i As Integer
Set MyDs = MyDb.OpenRecordset("Select Variable1 FROM Table1", , dbReadOnly)
Debug.Print MyDs.RecordCount
For i = 0 To MyDs.RecordCount - 1
MsgBox CStr(MyDs.Fields(0))
Next i
请上传附件！
要什么附件?
就是这样一个Access表格：
Variable1 Variable2
甲 22
乙 32
丙 23
丁 19
上面代码的目的是要读出甲乙丙丁，依次赋给某个变量进行处理。但是不知道为什么，就是只能读出甲，其它都读不出来。
请帮忙看看,谢谢！
For i = 0 To MyDs.RecordCount - 1
MsgBox CStr(MyDs.Fields(0))
MyDs.movenext
Next i
总记录：3篇 页次：1/1 9 1 :
