请问，下列代码为什么只统计加载到当前表中的数据？而不是统计后台数据。统计后台数据如何改代码？

DataTables("坯布统计表").DataRows.Clear() \'清除原来的数据
For Each nm() As String In DataTables("坯布输入").GetUniqueValues("","产品名称","年","月")
    Dim dr  As DataRow = DataTables("坯布统计表").AddNew()
    Dim ft As Date = new Date(Date.Today.Year,Date.Today.Month,23)
    ft= ft.AddMonths(-1)

       dr("产品名称") = nm(0)

       dr("年") = nm(1)
       dr("月") = nm(2)
       dr("下机坯布_本日") = DataTables("坯布输入").compute("Sum(匹数)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\' and 日期 = #" & Date.Today & "#")
       dr("下机坯布_累计") = DataTables("坯布输入").compute("Sum(匹数)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\'and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
       dr("产量_本日") = DataTables("坯布输入").compute("Sum(总长)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\' and 日期 = #" & Date.Today & "#")
      dr("产量_累计") = DataTables("坯布输入").compute("Sum(总长)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\' and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
      dr("扣分_本日") = DataTables("坯布输入").compute("Sum(织造车间扣分)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\' and 日期 = #" & Date.Today & "#")
      dr("扣分_累计") = DataTables("坯布输入").compute("Sum(织造车间扣分)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\'and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
      dr("重量_本日") = DataTables("坯布输入").compute("Sum(总重)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\' and 日期 = #" & Date.Today & "#")
      dr("重量_累计") = DataTables("坯布输入").compute("Sum(总重)","产品名称 = \'" & nm(0) & "\' AND 年 = \'" & nm(1) & "\'And 月 = \'" & nm(2) & "\'and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
 Next