以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助],快捷流水账要求每一年每个账号的最后一笔业务都作个标识记  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187656)

--  作者:huaziqiao1976
--  发布时间:2023/8/2 9:53:00
--  [求助],快捷流水账要求每一年每个账号的最后一笔业务都作个标识记

Dim drs As List(of DataRow) = DataTables("股金账页").Select("","账号,年号")
Dim prev As String  = ""
For i As Integer = 0 To drs.count -1
    Dim cur As String = drs(i)("账号")
    If cur = prev Then
        drs(i)("余额") = drs(i - 1)("余额") + drs(i)("贷方金额") - drs(i)("借方金额")
        drs(i)("标记") = 1
        If drs(i - 1)("标记") = 1 Then
            drs(i - 1)("标记") = Nothing
        End If
    Else
        drs(i)("余额") = drs(i)("贷方金额") - drs(i)("借方金额")
        drs(i)("标记") = 1
        prev = cur
    End If
Next
现在只能在当年的最后一行留下标记,如如流转到下年,上年的标记全都为 nothing 了,求保留上年标记的代码

--  作者:有点蓝
--  发布时间:2023/8/2 9:59:00
--  
        If drs(i - 1)("标记") = 1 andalso drs(i - 1)("年号") = drs(i)("年号") Then
            drs(i - 1)("标记") = Nothing
        End If

--  作者:huaziqiao1976
--  发布时间:2023/8/2 10:10:00
--  
谢谢蓝版