[求助]如何遍历表的记录

fisk129

比如我有一个表originial,表里只有一个字段code。我在窗体里做了一个button，在click的event里写代码。

我想从表的第一条记录，依次遍历每条记录的值做相关操作，请问用什么循环语句和参数？

[此贴子已经被作者于2006-6-2 12:00:22编辑过]

andymark

Dim Rs As New ADODB.Recordset

Rs.Open "select * from originial", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Do While Not Rs.EOF
   MsgBox Rs.Fields("code")
   Rs.MoveNext
Loop

Set Rs = Nothing

fisk129

好快～ 我马上试试～ 多谢!

fisk129

高手，可以用了，谢谢！不过我想根据不同的返回值替换原值，我用Replace函数，例如Replace(code,"1001","1000"), 为什么提示我"Compile error: Expected:= "的错误信息呢？如果想替换，什么方法更好呢？

hasdfr23

up

hasdfr23

up

hasdfr23

up

wuaza

Replace(Rs.Fields("code"),"1001","1000"),

fisk129

Thanks~