怎样把一个数据库里面好多字段、好多记录里面是空值的全部以0替换？

goyz

我的数据原来是在Excel里面录入的，但现在发现制做报表非常复杂，所以我打算把它导出到数据库里面去。 这样的话，原来好多数字型的字段在电子表格里面计算是没有问题的，但一导到ACCESS数据库里面，如果是空值的话，字段之间的运算结果就不对了! 所以我打算把所有数字型字段如果是空值的话，全部以0替换掉。 我写了一段代码，不什么原因，老是不能正确运行!

哪位前辈帮我看看!非常感谢! Set db1 = OpenDatabase(ThisWorkbook.Path & "\data\生产日报表台帐.MDB") Set rs1 = db1.OpenRecordset(Name:="吹瓶", Type:=dbOpenDynaset) With rs1 .MoveFirst On Error Resume Next Do .Edit For i = 0 To 60 If IsNull(rs1.Fields(i).Value) Then .Fields(i).Value = 0 End If Next

.update .MoveNext Loop Until .EOF() End With

[此贴子已经被作者于2004-12-8 19:56:39编辑过]

Kevin

首先，我觉得楼主此举实在多余。

为了报表计算而把数据表里面的NULL值转换为0没有意义，你可以在计算公式中使用NZ函数来解决NULL值参与计算的问题。如nz(字段,0)。