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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 会计报表计算

共有2059人关注过本帖树形打印复制链接主题：会计报表计算

kaituozhe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

会计报表计算 发帖心情

Post By：2016/1/24 9:37:00 [只看该作者]

Dim tb As Table =Tables("资产负债表")
Dim tb2 As Table = Tables("科目汇总表")
Dim year1 As String = "年2011_期末余额"
Select Case e.DataCol.name
Case "资产"
tb(1,1)=tb2.Compute("sum(year1)","会计科目_一级科目='库存现金'")
tb(10,1)=tb2.Compute("sum(year1)","会计科目_一级科目='原材料'")
End Select

以上代码是在资产负债表中汇总科目余额表中的金额，由于年度经常可能发生变化，定义了橙色代码，不能计算，该怎么修改

kaituozhe

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/1/24 11:17:00 [只看该作者]

这个问题怎么解决，着急！！！

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/24 11:31:00 [只看该作者]

tb(1,1)=tb2.Compute("sum(" & year1 & ")","会计科目_一级科目='库存现金'")

下一主题 >> << 上一主题

主题：会计报表计算