主题：帮忙看看这段代码有啥问题?

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  也可以计算出数字  但是就是写入不到这个我要求的列中

'...

'...