dr("余额数") = tables(e.Form.Name & "_Table1").Compute("Sum(余额数)", "科目编码 like '" & dr("
科目编码") & "
.%'")
For i as integer = Tables(e.Form.Name & "_Table1").Rows.count - 1 to 0 step -1
dim dr as row = Tables(e.Form.Name & "_Table1").Rows(i)
if dr("余额数") = nothing then
dr("余额数") = tables(e.Form.Name & "_Table1").Compute("Sum(余额数)", "科目编码 like '" & dr("科目编码") & ".%'") '这里的条件是左包含是所有的下阶的,要怎么做到只包含下一级的汇总?
end if
Next