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

afterload:

Dim school As String = User.Group

If school IsNot Nothing

e.Form.Controls("label1").text = school & "学生基本信息统计"

Else

e.Form.Controls("label1").text = "学生基本信息统计"

End If

Dim lbl As WinForm.Label = e.Form.Controls("Label1")

If e.Form.width > lbl.Width

lbl.Left = (e.Form.width - lbl.Width ) / 2

End If

DataTables("学生统计").loadfilter = "单位全称 = '"& school & "'"

DataTables("学生统计").load

Tables("学生人数统计_table2").sort = "班级"

Tables("学生人数统计_table2").Cols("在读人数").GrandTotal = True '指定要合计的列

Tables("学生人数统计_table2").Cols("男").GrandTotal = True

Tables("学生人数统计_table2").Cols("女").GrandTotal = True

Tables("学生人数统计_table2").Cols("户口性质_农业户口").GrandTotal = True

Tables("学生人数统计_table2").Cols("户口性质_非农业户口").GrandTotal = True

Tables("学生人数统计_table2").Cols("无身份证").GrandTotal = True

Tables("学生人数统计_table2").Cols("无学籍号").GrandTotal = True

Tables("学生人数统计_table2").Cols("残疾").GrandTotal = True

Tables("学生人数统计_table2").Cols("走读").GrandTotal = True

Tables("学生人数统计_table2").Cols("住读").GrandTotal = True

Tables("学生人数统计_table2").GrandTotal = True '显示合计模式

刷新按键：

Dim school As String = User.Group

Tables("学生统计").sort = "班级"

Dim Vals As List(of String())

Dim drf As DataRow

Vals = DataTables("学生信息").sqlGetValues("学校名称|班级","学校名称 = '" & school & "'")

For i As Integer = 0 To Vals.Count - 1

drf = DataTables("学生统计").SQLFind("单位全称 = '" & vals(i)(0) & "' and 班级 = '" & vals(i)(1) &"'" )

If drf Is Nothing

Dim dr As DataRow = DataTables("学生统计").AddNew()

dr("单位全称") = Vals(i)(0)

dr("班级") = Vals(i)(1)

DataTables("学生统计").save()

End If

DataTables("学生统计").DataCols("单位全称").RaiseDataColChanged()

DataTables("学生统计").save()

老师，上面两个代码是用于窗口中统计学生信息表中的数据，但效率太低了，请示帮用sql语句实现上面统计怎样写

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.foxdb

请老师帮改下，上次有位老师帮把一个效率很低的用sql语句改后很快，但看不懂，请看这个窗口效率如何改？谢谢！！

参考代码

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 '显示合计模式

以下是引用刘林在2017/3/1 22:19:00的发言：
“sy"是什么？

sy，是你的数据源名

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

请问加个各班人数统计怎么加，人数要统计状态的左边两个字符为在读

主题：统计效率问题