以下代码错在哪里?请高手指点!多谢!Private Sub Command1_Click() Dim k As Integer
AdodcSource.Recordset.MoveFirst While AdodcSource.Recordset.EOF = False For k = 0 To AdodcSource.Recordset.Fields.Count - 1 AdodcDest.Recordset.Fields(k).Value = AdodcSource.Recordset.Fields(k).Value Next k AdodcSource.Recordset.MoveNext Wend
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=55292
Dim k As Integer
AdodcSource.Recordset.MoveFirst
While AdodcSource.Recordset.EOF = False
For k = 0 To AdodcSource.Recordset.Fields.Count - 1
AdodcDest.Recordset.Fields(k).Value = AdodcSource.Recordset.Fields(k).Value
Next k
AdodcSource.Recordset.MoveNext
Wend
End Sub