| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]，快捷流水账要求每一年每个账号的最后一笔业务都作个标识记 (http://www.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 -- 谢谢蓝版 |