如何统计经过筛选后的数据表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = e.DataRow
Dim dt As Table =Tables("信息标注")
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

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