主题：自定义函数

由资产负债表有很多种会计准则，希望每种会计准则的计算方法都在自定义函数中设置，以下自定义函数中的代码，但是在函数中怎么表示列名，黄色代码怎么修改？

'小企业会计准则"
msgbox(0)
Dim filter As String =  "年度 = '" & CurrentTable.Current("年度") & "' And 期间 = '" & CurrentTable.Current("期间") & "'And 公司名称 = '" & CurrentTable.Current("公司名称") & "' And 会计准则 = '" & CurrentTable.Current("会计准则") & "'"
If DataTables.Contains("科目余额转换") = True Then
    Dim dt As DataTable = DataTables("科目余额转换")
msgbox(2)
    Select Case CurrentTable.DataTable.name
        Case "年度","期间"
msgbox(1)
            If CurrentTable.DataTable.find(filter & "and 资产项目 = '固定资产净值'") IsNot Nothing Then
                CurrentTable.DataTable.find(filter & "And 资产项目 = '固定资产净值'")("资产期初金额") = CurrentTable.DataTable.Compute("sum(资产期初金额)",filter & "and 资产项目 = '固定资产原值'") - CurrentTable.DataTable.Compute("sum(资产期初金额)",filter & "and 资产项目 = '固定资产累计折旧'")
                CurrentTable.DataTable.find(filter & "And 资产项目 = '固定资产净值'")("资产期末金额") = CurrentTable.DataTable.Compute("sum(资产期末金额)",filter & "and 资产项目 = '固定资产原值'") - CurrentTable.DataTable.Compute("sum(资产期末金额)",filter & "and 资产项目 = '固定资产累计折旧'")
            End If
           
            If CurrentTable.DataTable.find(filter & "and 资产项目 = '无形资产净值'") IsNot Nothing Then
                CurrentTable.DataTable.find(filter & "And 资产项目 = '无形资产净值'")("资产期初金额") = CurrentTable.DataTable.Compute("sum(资产期初金额)",filter & "and 资产项目 = '无形资产原值'") - CurrentTable.DataTable.Compute("sum(资产期初金额)",filter & "and 资产项目 = '无形资产累计摊销'")
                CurrentTable.DataTable.find(filter & "And 资产项目 = '无形资产净值'")("资产期末金额") = CurrentTable.DataTable.Compute("sum(资产期末金额)",filter & "and 资产项目 = '无形资产原值'") - CurrentTable.DataTable.Compute("sum(资产期末金额)",filter & "and 资产项目 = '无形资产累计摊销'")
            End If
            If CurrentTable.DataTable.find(filter & "and 资产项目 = '流动资产合计'") IsNot Nothing Then
                CurrentTable.DataTable.find(filter & "And 资产项目 = '流动资产合计'")("资产期初金额") = CurrentTable.DataTable.Compute("sum(资产期初金额)",filter & "and 资产项目 in ('货币资金','短期投资','应收piao据','应收账款净值','预付账款','应收股利','应收利息','其他应收款净值','存货','待摊费用','一年内到期的非流动资产','其它流动资产')")
                CurrentTable.DataTable.find(filter & "And 资产项目 = '流动资产合计'")("资产期末金额") = CurrentTable.DataTable.Compute("sum(资产期末金额)",filter & "and 资产项目 in ('货币资金','短期投资','应收piao据','应收账款净值','预付账款','应收股利','应收利息','其他应收款净值','存货','待摊费用','一年内到期的非流动资产','其它流动资产')")
            End If

end select