主题：会计报表计算

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

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