以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  会计报表计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80476)
--  作者：kaituozhe
--  发布时间：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
--  发布时间：2016/1/24 11:17:00
--  
这个问题怎么解决，着急！！！
--  作者：大红袍
--  发布时间：2016/1/24 11:31:00
--  
tb(1,1)=tb2.Compute("sum(" & year1 & ")","会计科目_一级科目=\'库存现金\'")