主题：账簿 求助

For i As Integer = 0 To Tables("zz").count-1
    Dim r As Row = Tables("zz").Rows(i)
    If i = 0
        r("余额") = r("借方") - r("贷方")
        If r("余额") > 0
            r("借或贷") = "借"
        ElseIf r("余额") < 0
            r("借或贷") = "贷"
        Else
            r("借或贷") = "平"
        End If       
    Else
        r("余额") = Tables("zz").Rows(i-1)("余额") + r("借方") - r("贷方")
        If r("余额") > 0
            r("借或贷") = "借"
        ElseIf r("余额") < 0
            r("借或贷") = "贷"
        Else
            r("借或贷") = "平"
        End If       
    End If   
Next