If e.Col.name = "借方累计" OrElse e.Col.name = "年初数" Then
Dim bmgs As String = "3322"
Dim bm As String = e.Row("科目编码")
Dim idx As Integer = 0
For i As Integer = 0 To bmgs.length-1
idx += val(bmgs(i))
If bm.length >= idx Then
Dim s = bm.SubString(0, idx)
Dim fdr As DataRow = e.Table.DataTable.find("科目编码 = '" & s & "' and 有下级 = true")
If fdr IsNot Nothing
fdr("借方累计") = e.Table.Compute("sum(借方累计)", "科目编码 like '" & s & "%' and 科目编码 <> '" & s & "' and 有下级 = false")'
fdr("年初数")= e.Table.Compute("sum(年初数)", "科目编码 like '" & s & "%' and 科目编码 <> '" & s & "' and 有下级 = false")'
End If
End If
Next
End If
加好友 
发短信
Post By：2019/1/23 21:57:00 [显示全部帖子]
此主题相关图片如下：630cd9b54edc6fb659f05a3036fc795.png
