Dim dt As DataTable = DataTables("统计表")
Dim r As Row
For i As Integer = 0 To Tables("统计表").Rows.Count(True) - 1
r = Tables("统计表").Rows(i,True)
If r.IsGroup Then
r("增率") = DataTables("统计表").Compute("sum([增值])","[主体] = '" & r("主体") & "'")/DataTables("统计表").Compute("sum([销售额])","[主体] = '" & r("主体") & "'")
End If
Next
以上结果显示为“非数字”
[此贴子已经被作者于2019/9/21 14:43:14编辑过]