While Not Rs.EOF
   ......
   Rs.MoveNext
Wend

解决方案 »

  1.   

    Do While Not mybook.Recordset.EOF
        (新数据列)= aa.MSPYReverse(原数据列)
        mybook.Recordset.MoveNext
    Loop
    我现在不知新数据列与原数据列如何编写。aa.MSPYReverse 是一个函数。
      

  2.   

    Do While Not mybook.Recordset.EOF
        mybook!新数据列= aa.MSPYReverse(mybook!原数据列)
        mybook.MoveNext
    Loop
    '一个问题,如果你使用的是ado的话,那“mybook”是什么?如果是
    'recordset对象的话,那为何还要“mybook.Recordset.MoveNext”?如果不
    '是的话,我就有点想不通了!我以上写的是把mybook看作是recordset对象来
    '操作的!
      

  3.   

    我用ADO控件与数据库榜定。但是用了上述循环语句mybook!新数据列= aa.MSPYReverse(mybook!原数据列)出错,是否还应用语句打开数据库,不知应该如何改写:
        Dim aa   As New Class1
        Do While Not mybook.Recordset.EOF
        mybook!pinyin = aa.MSPYReverse(mybook!Title)
        mybook.Recordset.MoveNext
        Loop