主题：余额计算

有三个表，分别是余额横表、本期借方、本期贷方，表的列都为会计年度、货币资金、应收账款等，年度为2011、2012、2013 我的想法在余额横表2012年余额等于余额横表2011年余额 + 2012年本期借方 - 2012年本期贷方

下面的代码该怎么修改

Dim kjnds As List (of String ) = kuaijiqijian
Dim mns2 As List (of String)
mns2 = DataTables("会计科目").GetValues("科目名称","方向 = '贷方'")
Select Case e.DataCol.name
    Case "会计年度"
        If e.newvalue IsNot Nothing Then
            For Each mn1 As String In mns1
                Dim filter As String ="会计年度 = '" & e.DataRow("会计年度") & "'"
                e.DataRow(mn1) = DataTables("余额横表").Compute("sum(" & mn1 & ")",filter)-DataTables("本期借方").Compute("sum(" & mn1 & ")",filter)+DataTables("本期贷方").Compute("sum(" & mn1 & ")",filter)

Next
        ElseIf e.newvalue = Nothing Then
            For Each mn1 As String In mns1
                e.DataRow(mn1) = Nothing
            Next
        End If
End Select

合成不同的日期条件不就行了？

Dim filter1 As String ="会计年度 = '" & e.DataRow("会计年度") & "'"

Dim filter2 As String ="会计年度 = '" & e.DataRow("会计年度")-1 & "'"

 e.DataRow(mn1) = e.DataRow(mn1) - DataTables("本期借方").Compute("sum(" & mn1 & ")",filter)+DataTables("本期贷方").Compute("sum(" & mn1 & ")",filter)

改成以上代码，但是在余额横表中怎么区别2011年的行与2012的行

汗

Dim filter1 As String ="会计年度 = '" & e.DataRow("会计年度") & "'"
Dim filter2 As String ="会计年度 = '" & e.DataRow("会计年度")-1 & "'"
e.DataRow(mn1) = DataTables("余额横表").Compute("sum(" & mn1 & ")",filter2)-DataTables("本期借方").Compute("sum(" & mn1 & ")",filter1)+DataTables("本期贷方").Compute("sum(" & mn1 & ")",filter1)