以下新事业单位会计制度的代码，我做了一个资产负债表，由于不同会计制度下的列项目不同，我通过以下代码根据选择不同的会计制度编制不同代码，实现在同一个表中由于选择会计制度不同（当然列也不会相同）自动编制报表，但是以下代码没有执行，不知道怎么修改

if DataTables("基本情况").find("项目 = \'会计准则\'")("内容") = "新事业单位会计制度" Then
    Select Case e.DataCol.name
        Case"货币资金","短期投资","财政应返还额度","应收票据","应收账款","预付账款","其他应收款","存货","其他流动资产"
            e.DataRow("流动资产合计") = e.DataRow("货币资金") + e.DataRow("短期投资") + e.DataRow("财政应返还额度") + e.DataRow("应收票据") + e.DataRow("应收账款") + e.DataRow("预付账款") + e.DataRow("其他应收款") + e.DataRow("存货") + e.DataRow("其他流动资产")
        Case "长期投资","固定资产原价","累计折旧","在建工程","无形资产原价","累计摊销","待处置资产损溢"
            e.DataRow("非流动资产合计") = e.DataRow("长期投资")  + e.DataRow("固定资产原价") - e.DataRow("累计折旧") + e.DataRow("在建工程") + e.DataRow("无形资产原价") - e.DataRow("累计摊销") + e.DataRow("待处置资产损溢")
        Case "流动资产合计","非流动资产合计"
            e.DataRow("资产总计") =e.DataRow("流动资产合计") + e.DataRow("非流动资产合计")
        Case "短期借款","应缴税费","应缴国库款","应缴财政专户款","应付职工薪酬","应付票据","应付账款","预收账款","其他应付款","其他流动负债"
            e.DataRow("流动负债合计") =e.DataRow("应缴国库款") + e.DataRow("短期借款") + e.DataRow("应缴税费") + e.DataRow("应缴财政专户款") + e.DataRow("应付职工薪酬") + e.DataRow("应付票据") + e.DataRow("应付账款") + e.DataRow("预收账款") + e.DataRow("其他应付款") + e.DataRow("其他流动负债")
        Case "长期借款","长期应付款"
            e.DataRow("非流动负债合计") = e.DataRow("长期借款") + e.DataRow("长期应付款")
        Case "流动负债合计","非流动负债合计"
            e.DataRow("负债合计") = e.DataRow("流动负债合计") + e.DataRow("非流动负债合计")
            Case"事业基金","非流动资产基金","专用基金","财政补助结转","财政补助结余","非财政补助结转","非财政补助结余","事业结余","经营结余"
            e.DataRow("净资产合计") = e.DataRow("事业基金") + e.DataRow("非流动资产基金") + e.DataRow("专用基金") + e.DataRow("财政补助结转") + e.DataRow("财政补助结余") + e.DataRow("非财政补助结转") + e.DataRow("非财政补助结余") + e.DataRow("事业结余") + e.DataRow("经营结余")
        Case "负债合计","负债和净资产合计"
            e.DataRow("负债和净资产合计") = e.DataRow("净资产合计") + e.DataRow("负债合计")
        Case "负债和净资产合计","资产总计"
            e.DataRow("差异") = e.DataRow("负债和净资产合计") - e.DataRow("资产总计")
    End Select
End If