蓝总:For Each kpi As String In kpis
Dim dr As DataRow = DataTables ("趋势报表_table2").AddNew()
dr("指标") = kpi
Dim monthlys() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
For Each monthly As Integer In monthlys
Dim dr1 As DataRow = DataTables("统计表10").Find("指标='" & kpi & "' and 月份 =" & monthly)
If dr1 IsNot Nothing Then
dr("单位") = dr1("单位")
dr(monthly) = dr1("完成情况")
Else
dr(monthly) = “”
End If
Next