Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多栏式会计账


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

主题：多栏式会计账
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		多栏式会计账  发帖心情 Post By：2021/6/3 14:51:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210603144544.png
图片点击可在新窗口打开查看
这样的数据源结构，(注：截图上没有管理费用，现在是编代码，暂不纠结具体数据。）
做成这样的结构：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210603143527.png
图片点击可在新窗口打开查看
统计数据源表一级科目为管理费用、安二级科目作列表项目的借方金额，并计算出本月发生额，本年累计，第一张统计表中的借方合计为本行合计，贷方合计等于借方本月发生额（即本月的借方合计总额）。
我看过交叉统计方法，做了一下，红色标注报错：
Dim a As Table = Tables("多栏式明细账_Table1")
Dim drs As List(Of DataRow) = DataTables("财务数据源").Select("[日期] >= #" & e.Form.Controls("StartDate").Value & "# And [日期] <= #" & e.Form.Controls("EndDate").Value & "# And [会计科目辅助列] ='" & e.form.controls("combobox1").items(0) & "'")
Dim g As Subtotalgroup
a.SubtotalGroups.Clear()
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select 日期,字号,凭证号,摘要,二级科目,借方金额,贷方金额 fr om {财务数据源} Where [日期] >= #" & e.Form.Controls("StartDate").Value _
& "# And [日期] <= #" & e.Form.Controls("EndDate").Value & "# And [凭证号] ='" & drs("凭证号") & "'And [会计科目辅助列] <>'" & e.Form.Controls("combobox1").Value & "'"
dt = cmd.ExecuteReader()
'对临时进行分组统计
Dim b As New CrossTableBuilder("统计表1",dt)
b.HGroups.AddDef("日期",DateGroupEnum.Year,"年")
b.HGroups.AddDef("日期","月")
b.HGroups.AddDef("字号")
b.HGroups.AddDef("凭证号")
b.HGroups.AddDef("摘要")
b.VGroups.AddDef("二级科目","{0}")
b.Totals.AddDef("借方金额")
b.Build(True)
Tables("多栏式明细账_Table1").DataSource = b.BuildDataSource
g = New Subtotalgroup
g.GroupOn = "月"
g.VGroups.AddDef("二级科目","{0}")
g.TotalOn = "借方金额"
g.Caption = "本月发生额"
a.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "月"
g.VGroups.AddDef("二级科目","{0}")
g.Totals.AddDef("借方金额")
g.Caption = "{0}月"
a.SubtotalGroups.Add(g)
a.Sort = "年,月"
a.Subtotal(True)
Dim r As Row
For i As Integer = 0 To a.Rows.Count(True) - 1
    r = a.Rows(i,True)
    If r.IsGroup AndAlso r("年") Like "*月" '如果是分组行
        Dim f As String = "年 = " & a.Rows(i-2,True)("年") & " And 月 <= " & r("年").trim("月")
        r("年") = "本年累计"
        r("借方金额") = a.Compute("Sum(借方金额)",f)
    End If
Next
Dim ckb As DataTable = e.Form.Controls("Table1").Table.DataTable
If ckb.DataCols.Contains("借或贷") = False And ckb.DataCols.Contains("借方合计") = False And ckb.DataCols.Contains("贷方合计") = False Then
    ckb.DataCols.add("借或贷", Gettype(String))
    ckb.DataCols.add("借方合计", Gettype(Double))
    ckb.DataCols.add("贷方合计", Gettype(Double))
End If
Dim drs As List(Of DataRow) = DataTables("多栏式明细账_Table1").Select("[凭证号] Is Not Null")
Dim nms As List(Of String) = DataTables("财务数据源").SQLGetUniqueValues("[会计科目辅助列] ='" & e.form.controls("combobox1").items(0) & "' And [日期] >= #" & e.Form.Controls("StartDate").Value & "# And [日期] <= #" & e.Form.Controls("EndDate").Value & "#" ,"二级科目")
Dim Sum As Integer
For Each nm As String In nms
    Sum = Sum + drs(0)(nm)
    DataTables("多栏式明细账_Table1").DataCols(nm).SetFormat("#,###.##")
Next
DataTables("多栏式明细账_Table1").DataCols("借方合计").SetFormat("#,###.##")
DataTables("多栏式明细账_Table1").DataCols("贷方合计").SetFormat("#,###.##")
Tables("多栏式明细账_Table1").SetHeaderRowHeight(45)
drs(0)("借或贷") = "借"
drs(0)("借方合计") = Sum

[此贴子已经被作者于2021/6/3 14:51:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/3 14:55:00 [只看该作者]

g = New Subtotalgroup

Subtotalgroup是汇总，汇总没有VGroups.AddDef这种用法
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/3 15:07:00 [只看该作者]

我知道没这种用法，才不知怎么做，它是交叉统计，怎样实现自定义汇总名称和汇总形式？即有本月发生额，也有本年累计，这才是会计真正要求的统计方式，帮助里的累计是一直累下去，不是一年归一年的。
[此贴子已经被作者于2021/6/3 15:37:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/3 15:16:00 [只看该作者]

一年归一年的累计之前已经给过类似的用法，自行翻一下

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/3 15:31:00 [只看该作者]

早看了，就是上面的代码，它是分组统计，我是交叉统计，还要在添加分组汇总下还循环计算分组列数据，我已经弄了2天了，还是不行。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/3 15:34:00 [只看该作者]

原来分组汇总的代码：
    Dim g As Subtotalgroup
    a.SubtotalGroups.Clear()
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    cmd.CommandText = "Select 日期,字号,凭证号,摘要,借方数量,借方金额,贷方数量,贷方金额 fro m {财务数据源} Where [日期] >= #" & e.Form.Controls("StartDate").Value _
    & "# And [日期] <= #" & e.Form.Controls("EndDate").Value & "# And [会计科目辅助列] ='" & e.Form.Controls("DropBox1").Value & "'"
    dt = cmd.ExecuteReader()
    '对临时进行分组统计
    Dim b As New GroupTableBuilder("统计表1",dt)
    b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
    b.Groups.AddDef("日期","月")
    b.Groups.AddDef("字号")
    b.Groups.AddDef("凭证号")
    b.Groups.AddDef("摘要")
    b.Totals.AddDef("借方数量","借方_数量")
    b.Totals.AddDef("借方金额","借方_金额")
    b.Totals.AddDef("贷方数量","贷方_数量")
    b.Totals.AddDef("贷方金额","贷方_金额")
    b.Build(True)
    Tables("三栏式数量金额账_Table1").DataSource = b.BuildDataSource
    g = New Subtotalgroup
    g.GroupOn = "月"
    g.TotalOn = "借方_数量,借方_金额,贷方_数量,贷方_金额"
    g.Caption = "本月发生额"
    a.SubtotalGroups.Add(g)
    g = New Subtotalgroup
    g.GroupOn = "月"
    g.Caption = "{0}月"
    a.SubtotalGroups.Add(g)
    a.Sort = "年,月"
    a.Subtotal(True)
    Dim r As Row
    For i As Integer = 0 To a.Rows.Count(True) - 1
        r = a.Rows(i,True)
        If r.IsGroup AndAlso r("年") Like "*月" '如果是分组行
            Dim f As String = "年 = " & a.Rows(i-2,True)("年") & " And 月 <= " & r("年").trim("月")
            r("年") = "本年累计"
            r("借方_数量") = a.Compute("Sum(借方_数量)",f)
            r("借方_金额") = a.Compute("Sum(借方_金额)",f)
            r("贷方_数量") = a.Compute("Sum(贷方_数量)",f)
            r("贷方_金额") = a.Compute("Sum(贷方_金额)",f)
        End If
    Next
交叉统计还要再循环计算分列数据。
[此贴子已经被作者于2021/6/3 16:13:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/3 15:35:00 [只看该作者]

请上传实例说明

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/3 15:51:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多栏式账.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/3 16:52:00 [只看该作者]

下面代码是在命令窗口测试的，自己改回按钮的用法。可以打开生成的统计表1的表结构看看交叉统计生成的统计表列名是怎么样的，然后结合代码看看怎么处理这种列名

'对临时进行分组统计
Dim b As New CrossTableBuilder("统计表1",DataTables("财务数据源"))
b.HGroups.AddDef("日期",DateGroupEnum.Year,"年")
b.HGroups.AddDef("日期","月")
b.HGroups.AddDef("字号")
b.HGroups.AddDef("凭证号")
b.HGroups.AddDef("摘要")
b.VGroups.AddDef("二级科目","{0}")
b.Totals.AddDef("借方金额")
b.Build()
Dim a As Table = Tables("统计表1")
Dim g As Subtotalgroup
a.SubtotalGroups.Clear()
Dim s As String = ""
For Each c As Col In a.Cols
    If c.Name Like "借方金额_*"
        s = s & "," & c.Name
    End If
Next
g = New Subtotalgroup
g.GroupOn = "月"
g.TotalOn = s.Trim(",")
g.Caption = "本月发生额"
a.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "月"
g.Caption = "{0}月"
a.SubtotalGroups.Add(g)
a.Sort = "年,月"
a.Subtotal(True)
Dim r As Row
For i As Integer = 0 To a.Rows.Count(True) - 1
    r = a.Rows(i,True)
    If r.IsGroup AndAlso r("年") Like "*月" '如果是分组行
        Dim f As String = "年 = " & a.Rows(i-2,True)("年") & " And 月 <= " & r("年").trim("月")
        r("年") = "本年累计"
        For Each c As Col In a.Cols
            If c.Name Like "借方金额_*"
                r(c.Name) = a.Compute("Sum(" & c.Name & ")",f)
            End If
        Next
    End If
Next
Dim ckb As DataTable = a.DataTable
If ckb.DataCols.Contains("借或贷") = False And ckb.DataCols.Contains("借方合计") = False And ckb.DataCols.Contains("贷方合计") = False Then
    ckb.DataCols.add("借或贷", Gettype(String))
    ckb.DataCols.add("借方合计", Gettype(Double))
    ckb.DataCols.add("贷方合计", Gettype(Double))
End If

ckb.DataCols("借方合计").SetFormat("#,###.##")
ckb.DataCols("贷方合计").SetFormat("#,###.##")
a.SetHeaderRowHeight(45)
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/3 17:18:00 [只看该作者]

其实这表要统计借方金额的数据，你看截图2统计出来的效果，它并没有出现借方金额名称，
Dim s As String = ""
For Each c As Col In a.Cols
    If c.Name Like "借方金额_*"
        s = s & "," & c.Name
    End If
Next
所以这段才码把名称组成一个集合，下面又把它分开成各列的本月发生额，行不通，要分也是动态生成的二级科目列名，我想大概要用到双循环？具体什么写不态懂，绕！
[此贴子已经被作者于2021/6/3 17:19:46编辑过]
 回到顶部
总数 45 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询