'将指定表中的NULL值转换为零
Public Sub NullTo0(strSQL As String )
'strSQL为可读写的SELECT语句,所有字段必须为数值型
Dim Rst As Recordset
Dim strSQL As String
Dim lngFields As Long
Dim lngFidCount As Long
Set dbs = CurrentDb
Set Rst = dbs.OpenRecordset(strSQL)
lngFields = Rst.Fields.Count
Rst.MoveFirst
Do Until Rst.EOF
For lngFidCount = 1 To lngFields - 1
If IsNull(Rst.Fields(lngFidCount)) Then
Rst.Edit
Rst.Fields(lngFidCount) = 0
Rst.Update
End If
Next lngFidCount
Rst.MoveNext
Loop
End Sub作者: xyzie 时间: 2002-11-8 02:55
你的程序只适合表吧!
我是想在查询中实现
!作者: HG 时间: 2002-11-8 02:58
用NZ()或iif函數足可以完成你的須求。作者: xyzie 时间: 2002-12-26 23:30
谢谢,好像nz()在office 2000中有毛病,我用office xp实现了!
谢谢
!作者: zhengjialon 时间: 2002-12-27 16:24
不会。