Foxtable(狐表) → 用户栏目 → 专家坐堂 → 明细账余额计算


  共有3493人关注过本帖树形打印复制链接

主题：明细账余额计算
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/22 15:54:00 [显示全部帖子]

参考 ：http://www.foxtable.com/webhelp/topics/2136.htm，看示例二，和示例的产品一样，把总账科目和明细科目都加到查询条件

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/22 16:49:00 [显示全部帖子]

加条件排除掉期初的行呗，比如

        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "'And [明细科目] = '" & mr("明细科目") & "' and 摘要<>'期初余额'", "[_SortKey] Desc")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/23 9:55:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:明细账.zip
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/23 11:45:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "总账科目", "明细科目", "借方", "贷方"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        If mr("摘要") = "期初余额" Then
            Return
        End If 
        Dim drs As List(Of DataRow)
        'dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "'And [明细科目] = '" & mr("明细科目") & "'", "[_SortKey] Desc")
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "'And [明细科目] = '" & mr("明细科目") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("余额") = mr("借方") - mr("贷方")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [总账科目] = '" & dr("总账科目") & "'And [明细科目] = '" & mr("明细科目") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("余额") = drs(i - 1)("余额") + drs(i)("借方") - drs(i)("贷方")
        Next
        If e.DataCol.Name = "总账科目" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & e.OldValue & "'And [明细科目] = '" & mr("明细科目") & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[总账科目] = '" & e.OldValue & "'And [明细科目] = '" & mr("明细科目") & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("余额") = dr("借方") - dr("贷方")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [总账科目] = '" & dr("总账科目") & "' And [明细科目] = '" & mr("明细科目") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("余额") = drs(i - 1)("余额") + drs(i)("借方") - drs(i)("贷方")
                Next
            End If
        End If
        If e.DataCol.Name = "明细科目" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "'And [明细科目] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[总账科目] = '" & mr("总账科目") & "'And [明细科目] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("余额") = dr("借方") - dr("贷方")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "' And [明细科目] = '" & dr("明细科目") & "'", "[_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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/23 17:01:00 [显示全部帖子]

这个有点麻烦，建议建立一个明细科目叫“无”。

不然要这样生成条件，比如
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "'And [明细科目] = '" & mr("明细科目") & "'", "[_SortKey] Desc")
改为
dim f as string
if mr.isnull("明细科目") then
f = "[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "' And [明细科目] is null"
else
f = "[_SortKey] < " & mr("_SortKey") & " And [总账科目] = '" & mr("总账科目") & "' And [明细科目] = '" & mr("明细科目") & "'"
end if
dr = e.DataTable.Find(f, "[_SortKey] Desc")

每一个有这个条件的地方都要像这样改
[此贴子已经被作者于2023/12/23 17:02:49编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/24 20:16:00 [显示全部帖子]

没看懂，请举例说明。比如导入了什么数据，什么地方计算不正确....
[此贴子已经被作者于2023/12/24 20:16:26编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/24 23:13:00 [显示全部帖子]

导入完成后重置列

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/25 10:15:00 [显示全部帖子]

请上传实例测试

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/25 10:56:00 [显示全部帖子]

1楼的实例放入9楼的代码，重置列后哪一行数据有问题？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/25 11:48:00 [显示全部帖子]

建行有什么问题？没看出来

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询