设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 1609|回复: 10
打印 上一主题 下一主题

如何把null值转换为0?

[复制链接]
跳转到指定楼层
1#
发表于 2002-10-7 18:43:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助高手,现因access链接表(表是excel表)有许多空值,无法求和,需要转换成0
请教!
不胜感激!
qq:40386383

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2002-10-7 19:27:00 | 只看该作者
nz()
函数
3#
 楼主| 发表于 2002-10-26 04:51:00 | 只看该作者
谢谢!

不过我是指在查询中不知能否实现?

[此贴子已经被作者于2002-10-25 20:50:55编辑过]

4#
发表于 2002-10-26 05:24:00 | 只看该作者
能,NZ([字段],0)
5#
 楼主| 发表于 2002-10-30 19:30:00 | 只看该作者
谢谢版主!
6#
 楼主| 发表于 2002-11-7 21:14:00 | 只看该作者
我用的时候发现这样处理不行,只有输出了其中几个0而已,不知是怎么回事?
以下是引用huanghai在2002-10-25 21:23:45的发言:
能,NZ([字段],0)
7#
发表于 2002-11-8 00:08:00 | 只看该作者
试试我以前写的程序

'将指定表中的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
8#
 楼主| 发表于 2002-11-8 02:55:00 | 只看该作者
你的程序只适合表吧!
我是想在查询中实现
!
9#
发表于 2002-11-8 02:58:00 | 只看该作者
用NZ()或iif函數足可以完成你的須求。
10#
 楼主| 发表于 2002-12-26 23:30:00 | 只看该作者
谢谢,好像nz()在office 2000中有毛病,我用office xp实现了!
谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-12-1 18:19 , Processed in 0.089695 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表