用ADODB替换NULL值，不过老是不成功

olderdream2007@

想用下面的代码把表里的NULL全部替换为0，不过老是不成功（只有第一行有效果）
请高人看看。谢谢！







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
With res
For i = 1 To 10
   If IsNull(.Fields(i & "月")) Then
      .Fields(i & "月") = 0
   End If
Next i
.MoveNext
End With
End Sub

olderdream2007@

风中漫步 发表于 2015-9-27 09:21
o,你找找现成的贴吧,一般关于ado的都有
以后问题贴发到这http://www.office-cn.net/forum-2-1.html

下面链接中的代码已经可以实现自己的效果，虽然有些不理解
http://www.office-cn.net/thread-120963-1-1.html


谢谢指点，非常感谢 顺祝贺节日快乐

风中漫步

o,你找找现成的贴吧,一般关于ado的都有
以后问题贴发到这http://www.office-cn.net/forum-2-1.html

olderdream2007@

风中漫步 发表于 2015-9-26 15:46
.MoveNext
Next i
.update

谢谢了，不过还是不行呀！！！

风中漫步

.MoveNext
Next i
.update

olderdream2007@

风中漫步 发表于 2015-9-26 10:09
.MoveNext
Next i

谢谢高人的指点，不过还是不行。是否能用我的附件帮忙测试指点下。 谢谢了！

风中漫步

.MoveNext
Next i

olderdream2007@

请高人指点，非常感谢！