Dim Names As String() = {"客户","雇员"}
Dim Names1 As String() = {"单数","金额"}
Dim Names2 As String() = {"合计1","合计2"}For Each Name As String In Names
For Each Name1 As String In Names1
For Each Name2 As String In Names2
e.datarow(Name2) = DataTables("订单").Compute("Sum(Names1)", "Name is not nothing ")
Next