主题：[求助]把代码改为从后台筛选

19楼说不要计算全部的，然后23楼又说要计算全部的。到底是要怎样？

不知道你怎么筛选的，上例子测试

你们是一个公司的？看下面的处理方法

Dim t As Table = Forms("退款记载结果").Controls("Table1").Table

t.DataTable.LoadFilter = filter1 & "  [F4415]>0"

t.DataTable.LoadTop = 20

t.DataTable.LoadPage = 0

t.DataTable.load

Forms("退款记载结果").Controls("label2").Text = t.Compute("sum(F4415)",t.DataTable.LoadFilter)

列标题参考：http://www.foxtable.com/webhelp/scr/1275.htm

窗口afterload

Dim t As Table = Forms("退款记载结果").Controls("Table1").Table

t.DataTable.DataCols("FXXX1").Caption = "某某1"

t.DataTable.DataCols("FXXX1").Caption = "某某2"

t.DataTable.BuildHeader()

Forms("退款记载结果").Controls("label2").Text = t.datatable.Compute("sum(F4415)",t.DataTable.LoadFilter)

是不是数据库就是这么多的值啊。上例子看看