Dim cs() As String = {"指标1", "指标2", "指标3"} For Each c As String In cs Dim ndr As DataRow = DataTables("汇总").AddNew ndr("指标项") = c Dim d1 As Double = DataTables("数据1").Compute("sum(" & c & ")") Dim d2 As Double = DataTables("数据2").Compute("sum(" & c & ")") ndr("小于负100") = (d1-d2) / d1 Next