出现了除以0的操作
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
dim s2 as double = DataTables("统计表").Compute("sum([销售额])","[主体] = '" & r("主体") & "'")
if s2 <> 0
r("增率") = DataTables("统计表").Compute("sum([增值])","[主体] = '" & r("主体") & "'")/s2
end if
End If
Next