以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态表达式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90565)
--  作者：kaituozhe
--  发布时间：2016/9/17 11:20:00
--  动态表达式

Dim nd01 As Integer = 2013

dt.find("项目名称 = \'货币资金\'")("年" & nd01) = dt1.compute("sum("\'余额\' & nd01 & \'年_期末余额\'")","科目编号 = \'101\'") + dt1.compute("sum(余额2013年_期末余额)","科目编号 = \'102\'")

黄色部分怎么修改？
--  作者：有点蓝
--  发布时间：2016/9/17 11:25:00
--  
Dim nd01 As Integer = 2013
Dim dr As DataRow = dt.find("项目名称 = \'货币资金\'")
If dr IsNot Nothing Then
    dr("年" & nd01) = dt1.compute("sum(" & "余额" & nd01 & "年_期末余额)","科目编号 = \'101\'") + dt1.compute("sum(余额2013年_期末余额)","科目编号 = \'102\'")
End If

另外，必要的if判断不能少