主题：如何统计经过筛选后的数据表？

此主题相关图片如下：生产线.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