主题：[求助]“统计演示”如何仅统计加载行？

 

打开软件附带的案例“统计演示”提问：

 

原代码如下：1、项目MainTableChanged事件：

If MainTable.Name = "销售统计" Then
    Dim f As New Filler
    DataTables("销售统计").DataRows.Clear() '清除原有数据
    f.SourceTable = DataTables("订单")
    f.SourceCols = "产品"
    f.DataTable = DataTables("销售统计")
    f.DataCols = "产品"
    f.Fill()
    DataTables("销售统计").DataCols("数量").Recalc()   
End If

2、表DataColChanged事件：

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("订单")
If e.DataCol.Name = "产品" Then
    dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
    dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
End If

问题：现在统计的是所有行，如果我仅想统计加载行，如何改写？

上面的代码，本来就只统计已经加载的数据啊

我是想当我用控件输入（如：Tables("订单").Filter = "[日期] = #1/3/1999#"）时，重新转换到“销售统计”表时数据也同步发生变化。

1、新版本已经没有Recalc了，建议升级你的foxtable

2、任何的统计都可以设置条件，加一行即可：

 

Filler.Filter = Tables("订单").Filter

我重新下载升级了，编码加在哪里呀？我是菜鸟加不进去。求老师帮忙！谢谢！

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("订单")
If e.DataCol.Name = "产品" Then
    if Tables("订单").Filter = "" Then
        dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
        dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
   Else
       dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "' And " & Tables("订单").Filter)
       dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "' And " & Tables("订单").Filter)
   End if
End If