主题：统计效率问题

先检查是sqlfind导致的，还是重置列导致的。

尽量不要在循环中使用sqlfind。

如果是重置列，拷贝datacolchanged事件的代码出来修改使用。

参考代码

select 学校名称,班级, (select count(*) from {学生信息} as b where a.学校名称=b.学校名称 and a.班级=b.班级 and 性别='男') as 男,(select count(*) from {学生信息} as b where a.学校名称=b.学校名称 and a.班级=b.班级 and 性别='女') as 女 from (select 学校名称,班级 from {学生信息} group by 学校名称,班级) as a where 学校名称 = '内江市东兴区石子镇中心学校'

拷贝修改红色代码即可。

Dim school As String = User.Group
Dim t As Table = e.Form.controls("Table2").Table
t.Fill("select 学校名称,班级, (select count(*) from {学生信息} as b where a.学校名称=b.学校名称 and a.班级=b.班级 and 性别='男') as 男,(select count(*) from {学生信息} as b where a.学校名称=b.学校名称 and a.班级=b.班级 and 性别='女') as 女 from (select 学校名称,班级 from {学生信息} group by 学校名称,班级) as a where 学校名称 = '" & school & "'", "sy", True)
t.sort = "班级"
For Each c As Col In t.Cols
    If c.IsNumeric Then
        c.GrandTotal = True
    End If
Next
t.GrandTotal = True '显示合计模式

sy，是你的数据源名

http://www.foxtable.com/webhelp/scr/2912.htm