Arys = DataTables("统计表21").GetUniqueValues("","部门","组别","管组民警")

            For Each Ary As String() In Arys

                Filter = "[部门] = \'" & Ary(0) & "\' And 组别=\'" & Ary(1) & "\'And 管组民警=\'" & Ary(2) & "\' And 数据统计项目=\'额定返校率\'"

                Ar = Tables("我的报表_Table2").DataTable.Find(Filter)

                If Ar IsNot Nothing Then

                    Dim Vals() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}

                    For index As Integer = 0 To Vals.Length - 1

                        dt1 = New Date(y, index+1, 1)

                        dt2 = New Date(y, index+1, Date.DaysInMonth(y,index+1)) \'获取该月的最后一天

                        Filter1 = "日期>=\'" & dt1 & "\'And 日期<=\'" & dt2 & "\' And [部门] = \'" & Ary(0) & "\' And 组别=\'" & Ary(1) & "\'And 管组民警=\'" & Ary(2) & "\' "

                        For Each cl As Col In Tables("统计表21").cols

                            Select Case cl.Caption

                                Case "金工点返校量(公斤)"

                                    Val1= DataTables("统计表21").Compute("Sum(" & cl.Name & ")",Filter1)

                                Case "校正组当日产量(公斤)"

                                    Val2= DataTables("统计表21").Compute("Sum(" & cl.Name & ")",Filter1)

                                    Dim Vall As Double = Val1/Val2

MessageBox.Show(Vall)

                                    If Vall > 0   Then

                                        Ar(Vals(index)) = Vall

                                    Else

                                        Ar(Vals(index)) = 0

                                    End If

                            End Select

                        Next

                    Next

                End If

            Next

 可以找到 "额定返校率"    Vall  也可以计算出数字  但是就是写入不到这个我要求的列中

\'...

\'...