以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  定义字符串  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107255)

--  作者:kaituozhe
--  发布时间:2017/9/24 11:01:00
--  定义字符串

Dim ZCQC As String = "资产期初金额"
Dim HBZJ As String = "资产项目= \'货币资金\'and 会计年度 = \'" & e.DataRow("会计年度") & "\' And 期间 = \'" & e.DataRow("期间") & "\'"
Select Case e.DataCol.name
    Case "资产期初金额"
        e.DataTable.find("资产项目= \'流动资产合计\'")("ZCQC") = e.DataTable.Compute("sum(资产期初金额)",HBZJ)
End Select

上述代码中黄色部分我也想用字符代替,但是不能Dim ZCQC As String = 资产期初金额这样定义字符串,该怎么办?


--  作者:y2287958
--  发布时间:2017/9/24 11:06:00
--  
 e.DataTable.find("资产项目= \'流动资产合计\'")(ZCQC) = e.DataTable.Compute("sum(" & ZCQC & ")",HBZJ)

用之前要判断一下该行是否存在