如何统计 经过筛选后的数据表。

此主题相关图片如下:信息标注.png

此主题相关图片如下:生产线.png

这是我datacolchanged里的统计代码,该如何修改? 现在的问题是信息标注里的数据经过筛选后,而统计表里的统计结果仍然是未筛选时的结果。
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("信息标注")
If e.DataCol.Name = "项目" And dr.IsNull("项目") = False Then
dr("分布_生产线1") = dt.Compute("Count(照片)", dr("项目") & "=1")
dr("分布_生产线2") = dt.Compute("Count(照片)", dr("项目") & "=2")
dr("分布_生产线3") = dt.Compute("Count(照片)", dr("项目") & "=3")
dr("分布_生产线4") = dt.Compute("Count(照片)", dr("项目") & "=4")
dr("分布_生产线5") = dt.Compute("Count(照片)", dr("项目") & "=5")
dr("分布_生产线6") = dt.Compute("Count(照片)", dr("项目") & "=6")
End If