主题：流水账问题

一个科目明细表记录每个会计科目流水账（日期、摘要、借方、贷方、余额），另一个表是余额表，余额表想自动取截止某一日期的余额怎么办，比如我想根据明细账在余额表中显示库存现金科目截止2015年10月30日的余额怎么办？而且2015年10月30日库存现金可能发生多笔业务，怎么能取到当天发生最后一笔的余额呢？

查找那个日期的_Identify或_Sortkey最大的一条。

 

DataTables("").find("日期 = #2015-10-30#", "_Identify desc")

 

或者换个思路，统计那个日期之前的 借和贷，相减就是余额

再问一个关于流水账的问题，流水账一般按日期及先后顺序计算余额呢，如果某一日期后加了一行是此日期以前日期的，比如在2015-10-30之前加了一个10-25日的数据，怎么还能按日期的先后顺序自动调整余额，数据的顺序不调整。

 If e.DataCol.Name = "科目编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

你既然是根据日期统计，那么 _Sortkey 就应该改成 日期列。

 

相同日期的时候，如果根据 _Sortkey/_Identify排序，那就这样写     日期 desc, _Sortkey desc

 

 

这个例子中有两个问题需要解决：一是希望项目明细增加一个新的科目编号和科目名称，在项目汇总中也能同时增加相应的科目编号和科目名称（前提汇总中没有这个科目及编号），但是会增加的不一致；二是明细账中实现不三楼所想的功能。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:增加相应行.foxdb

1、自动增加行，参考 http://www.foxtable.com/help/topics/2490.htm

 

2、把_Sortkey改成你的日期列就行啊。

 

汗，参考代码

 

Select Case e.DataCol.Name
    Case "科目编号","借方金额","贷方金额","项目编号"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[日期] = #" & mr("日期") & "# and _Sortkey < " & mr("_Sortkey") & " And [科目编号] = '" & mr("科目编号") & "' and [项目编号] = '" & mr("项目编号") & "'", "日期 desc, _Sortkey desc")
        If dr Is Nothing Then '同日期么找到
            dr = e.DataTable.Find("[日期] < #" & mr("日期") & "# And [科目编号] = '" & mr("科目编号") & "' and [项目编号] = '" & mr("项目编号") & "'", "日期 desc, _Sortkey desc")
            If dr Is Nothing Then
                mr("余额") = mr("借方金额") - mr("贷方金额")
                dr = mr
            Else
                mr("余额") = dr("余额") + mr("借方金额") - mr("贷方金额")
            End If
        Else
            mr("余额") = dr("余额") + mr("借方金额") - mr("贷方金额")
        End If
        drs = e.DataTable.Select("[日期] >= #" & mr("日期") & "# and [科目编号] = '" & dr("科目编号") & "' and [项目编号] = '" & mr("项目编号") & "'", "日期,[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("借方金额") - drs(i)("贷方金额")
        Next
msgbox(2)
        If e.DataCol.Name = "科目编号" OrElse e.DataCol.name = "项目编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Dim filter As String = ""
            If e.DataCol.name = "科目编号" Then
                filter = " [科目编号] = '" & e.oldvalue & "' and [项目编号] = '" & mr("项目编号") & "'"
            ElseIf e.DataCol.name = "项目编号"
                filter = " [科目编号] = '" & mr("科目编号") & "' and [项目编号] = '" & e.OldValue & "'"
            End If
           
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[日期] >= #" & mr("日期") & "# And " & filter, "日期,[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("余额") = drs(i-1)("余额") + drs(i)("借方金额") - drs(i)("贷方金额")
                Next
            End If
        End If
End Select