空值计算问题

的的乐　发表于：2020-03-24 20:11:46 　

关于空值计算问题：

本示例的代码计算余额中，如果借方余额或贷方余额中有空值就出错，如何修改在有空值的情况下也能计算点击下载此附件

的的乐发表于：2020-03-24 20:18:13

如下：用Nz空值转0也不行

Function getBlc() As Currency
    Dim rs As New ADODB.Recordset
    Dim dblBlc As Double
    With rs
        .Open "bb", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        Do While Not .EOF
            .Fields("余额") = .Fields(Nz("借方金额")) - .Fields(Nz("贷方金额")) + dblBlc
            dblBlc = .Fields("余额")
            .Update
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
End Function

Top

chinasa 发表于：2020-03-25 08:15:42

用下面的代码试试

    Dim rs As New ADODB.Recordset
    Dim dblBlc As Double
    With rs
        .Open "bb", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        Do While Not .EOF
            .Fields("余额") = .Fields("借方金额") - .Fields("贷方金额") + dblBlc
            If IsNull(.Fields("余额")) = False Then
            dblBlc = .Fields("余额")
            .Update
            End If
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing

Top

的的乐发表于：2020-03-25 18:56:55

问题：如果“借方金额”或“贷方金额”中有空值就出错

Top

西出阳关无故人发表于：2020-03-25 21:03:33

zn不是那么用的吧?试一试:nz(.Fields("借方金额"),0)

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

空值计算问题