标题：账簿 求助
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:帐簿.table |
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
已解决：把e.datarow换成drs(i)
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [科目] ='" & mr("科目") & "'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
If drs(i-1)("借或贷")="贷" Then
Dim s As Double = drs(i-1)("余额") - drs(i)("借方") + drs(i)("贷方")
If s>0 Then
drs(i)("余额") = s
drs(i)("借或贷")="贷"
ElseIf s < 0 Then
drs(i)("余额") = -s
drs(i)("借或贷")="借"
ElseIf s = 0 Then
drs(i)("余额") = 0
drs(i)("借或贷")="平"
End If
ElseIf drs(i-1)("借或贷")="借" Then
Dim s1 As Double = drs(i-1)("余额") + drs(i)("借方") - drs(i)("贷方")
If s1>0 Then
drs(i)("余额") = s1
drs(i)("借或贷")="借"
ElseIf s1< 0 Then
drs(i)("余额") = -s1
drs(i)("借或贷")="贷"
ElseIf s1= 0 Then
drs(i)("余额") = 0
drs(i)("借或贷")="平"
End If
ElseIf drs(i-1)("借或贷")="平" Then
If e.DataRow("借方")>0 Then
drs(i)("余额") = e.DataRow("借方")
drs(i)("借或贷")="借"
ElseIf e.DataRow("贷方")>0 Then
drs(i)("余额") = e.DataRow("贷方")
drs(i)("借或贷")="贷"
Else
drs(i)("余额") = 0
drs(i)("借或贷")="平"
End If
End If
Next