如何判断一条记录的一个字段为空???????

Question

Do While Not rs.EOF
    If Not rs.BOF Then
        If rs.Fields(5) <> Null Then
            c = c + rs.Fields(5)
        End If
        If rs.Fields(6) is not nullThen
            d = d + rs.Fields(6)
        End If
        If rs.Fields(7) <=null Then
           a = a + rs.Fields(7)
        End If        b = b + rs.Fields(3)
    End If
    rs.MoveNext
Loop

Answer 1

用IsNull()函数, 例如If Not IsNull(rs.Fields(5)) Then
'...
End If

Answer 2

可以这样：
dim t as string
t="" & rs.Fields(5)
if t="" then msgbox "Fields(5) 为空"

Answer 3

If  isnull(rs.Fields(5)) Then
            c = c + rs.Fields(5)
        End If

Answer 4

判断是否为NULL用IsNull函数可以了。