用下面的代码把表里的NULL全部替换为0，不过老是不成功

andrewyang

想用下面的代码把表里的NULL全部替换为0，不过老是不成功（只有第一行有效果）
请高人看看。谢谢！
WT.zip (23.54 KB, 下载次数: 22)

2015-9-25 22:05 上传

点击文件名下载附件

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

andrewyang

请高人指点，非常感谢

山中老人

数据类型 是否匹配？？

andrewyang

山中老人 发表于 2015-9-26 15:29
数据类型 是否匹配？？

匹配的，运行也没有错误。谢谢！  请指点

山中老人

你只有对字段（列）的循环，缺少对行的循环。当然只能处理第一行。
.MoveNext    .MoveFirst 都是针对记录（行）的操作。


你 那表设计也有问题，月份用文本类型，5月又用数字？
非常不严谨。要学会用【单步运行】调试（按F8键），很多问题自己就能解决。

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

andrewyang

山中老人 发表于 2015-9-26 21:24
你只有对字段（列）的循环，缺少对行的循环。当然只能处理第一行。
.MoveNext    .MoveFirst 都是针对记录 ...

1. 表设计方面的确是不规范 谢谢指点。

2. MOVENEXT就是移动到下一条记录（就是行），还需要用LOOP来调用。有点不理解。
   不过现记住，后续慢慢理解。

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

山中老人

.Fields(i & "月")
实际是指的，某行的某个列(用EXCEL 来说就是一个单元格)。不是指的整个列（除非是新增（删除）该列）。

res.EOF 是用来测试行是否到了末尾。

多用VBA帮助(按F1键)，上面都有说明的。
关于 DO .... loop 循环语句，见帮助。DO 代表循环开始，LOOP代表循环结束。
对于无法确定循环次数的，一般就用这种循环语句。
你用单步运行，跑一下程序，就知道为什么必须用了！
理论上也可以预先获取ADODB.Recordset 的行数（res.RecordCount），用FOR循环语句。
MaxC= res.Fields.Count  '总列数 ：从res(0),到 res(MaxC-1)
MaxR = res.RecordCount '总行数
但是，一些特殊情况下，行数、列数是可能发生变化的。所以一般还是用 DO .... loop 循环语句，严谨一些。

andrewyang

山中老人 发表于 2015-9-27 14:52
.Fields(i & "月")
实际是指的，某行的某个列(用EXCEL 来说就是一个单元格)。不是指的整个列（除非是新增 ...

谢谢高人耐心指点及分享。

原来Movenext不会主动向下一行移动（只是放了个“指针”在哪里），每次调用Movenext才能移动到下一行。

LOOP就是那个搬动“指针”的“手”。


非常感谢，顺祝节日快乐！

山中老人

andrewyang 发表于 2015-9-27 21:49
谢谢高人耐心指点及分享。

原来Movenext不会主动向下一行移动（只是放了个“指针”在哪里），每次调用 ...

Movenext 是向下一行移动指针，你执行一次就下移一次。

你用MoveFirst将指针移动到第一行，然后的操作都是针对这一行的
最后用Movenext，在它后面没有操作，也就没有意义。
执行Movenext，只是移动一下指针，并不意味着它会将上面的操作自动执行一遍。
必须用循环语句，再执行一遍上面的操作。才能发挥作用。 直到记录末尾，跳出循环。

循环语句（LOOP）本身不会去移动指针！移动指针还是靠Movenext。循环语句只是让其包括的语句重复执行。
看来你对循环语句还没有概念，需要补习一下编程基础。

andrewyang

山中老人 发表于 2015-9-28 07:25
Movenext 是向下一行移动指针，你执行一次就下移一次。

你用MoveFirst将指针移动到第一行，然后的操作 ...

谢谢指点，学习了。节日快乐！