代码：
Sub test()
Dim res As ADODB.Recordset
Dim i As Integer
Set res = New ADODB.Recordset
res.Open "Data", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
res.MoveFirst
Do While Not res.EOF
With res
For i = 1 To 10
If IsNull(.Fields(i & "月")) Then
.Fields(i & "月") = 0
End If
Next i
.MoveNext
End With
Loop
End Sub 作者: roych 时间: 2015-9-29 17:16
怎么说呢？
其实像这个，应该加上update的。
加上loop只代表光标移动到下一行。
假定没有loop，那么就是修改了第一行，并将光标移动到下一行，仅此而已。当然不会对全部记录进行修改了。