流水账 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问怎么设置日期科目增减列改变后余额也跟着变

窗口表

下载信息 [文件大小：下载次数： ]
点击浏览该文件:流水账.table

按科目日期制单时间排序

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 [科目] = '" & mr("科目") & "'", "日期 desc, 制单时间 desc")

If dr("_Identify") = mr("_Identify") Then

mr("余额") = mr("增") - mr("减")

dr = mr

End If

drs = e.DataTable.Select("[日期] >= #" & dr("日期") & "# And [科目] = '" & dr("科目") & "'", "[日期], 制单时间")

For i As Integer = 1 To drs.Count - 1

drs(i)("余额") = drs(i-1)("余额") + drs(i)("增") - drs(i)("减")

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

dr = e.DataTable.Find("[日期] <= #" & mr("日期") & "# And [科目] = '" & e.OldValue & "'", "日期 desc , 制单时间 desc ")

If dr Is Nothing Then

dr = e.DataTable.Find("[科目] = '" & e.OldValue & "'", "[日期] desc, 制单时间 desc")

If dr IsNot Nothing Then

dr("余额") = dr("增") - dr("减")

End If

If dr IsNot Nothing Then

drs = e.DataTable.Select("[日期] >= #" & dr("日期") & "# And [科目] = '" & dr("科目") & "'", "日期, 制单时间")

For i As Integer = 1 To drs.Count - 1

drs(i)("余额") = drs(i-1)("余额") + drs(i)("增") - drs(i)("减")

End If

End Select

主题：流水账