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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何统计经过筛选后的数据表？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30440)

--  作者：effective
--  发布时间：2013/3/27 22:06:00
--  如何统计经过筛选后的数据表？
如何统计经过筛选后的数据表。

此主题相关图片如下：信息标注.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

--  作者：e-png
--  发布时间：2013/3/27 22:16:00
--  如何统计经过筛选后的数据表？

求助也不写清标题内容？

把筛选改为load 类似这样：

DataTables("订单").LoadFilter = "[日期] = #" & Date.Today & "#"
DataTables("订单").Load

--  作者：狐狸爸爸
--  发布时间：2013/3/28 8:33:00
--
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

--  作者：effective
--  发布时间：2013/3/28 14:17:00
--
thank you