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

CurrentChanged事件代码移到afterfilter事件

移过去后还是一样，窗口中的统计人数的文本框不会随筛选而变动，窗口中的表会随之变化，反应速度也变快了很多

上传具体实例说明

我把所有副表的CurrentChanged事件代码都移到Aftetfilter事件中去后，就可以了，速度好象还不错，比在CurrentChanged中要快上不少

部分代码如下：每个副表原来的CurrentChanged事件代码都差不多，只是所在窗口不同而已，有几个窗口就写几段。

If Forms("鉴定信息汇总").Opened Then

Forms("鉴定信息汇总").Controls("总人数").Text = e.Table.Compute("count(姓名)")

Forms("鉴定信息汇总").Controls("初级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '初级工'")

Forms("鉴定信息汇总").Controls("中级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '中级工'")

Forms("鉴定信息汇总").Controls("高级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级工'")

Forms("鉴定信息汇总").Controls("技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '技师'")

Forms("鉴定信息汇总").Controls("高级技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级技师'")

Forms("鉴定信息汇总").Controls("男").Text = e.Table.Compute("count(姓名)", "性别 = '男'")

Forms("鉴定信息汇总").Controls("女").Text = e.Table.Compute("count(姓名)", "性别 = '女'")

End If

If Forms("报名登记汇总").Opened Then

Forms("报名登记汇总").Controls("总人数").Text = e.Table.Compute("count(姓名)")

Forms("报名登记汇总").Controls("初级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '初级工'")

Forms("报名登记汇总").Controls("中级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '中级工'")

Forms("报名登记汇总").Controls("高级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级工'")

Forms("报名登记汇总").Controls("技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '技师'")

Forms("报名登记汇总").Controls("高级技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级技师'")

Forms("报名登记汇总").Controls("男").Text = e.Table.Compute("count(姓名)", "性别 = '男'")

Forms("报名登记汇总").Controls("女").Text = e.Table.Compute("count(姓名)", "性别 = '女'")

End If

If Forms("中高级工资审").Opened Then

Forms("中高级工资审").Controls("总人数").Text = e.Table.Compute("count(姓名)")

Forms("中高级工资审").Controls("初级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '初级工'")

Forms("中高级工资审").Controls("中级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '中级工'")

Forms("中高级工资审").Controls("高级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级工'")

Forms("中高级工资审").Controls("技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '技师'")

Forms("中高级工资审").Controls("高级技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级技师'")

Forms("中高级工资审").Controls("男").Text = e.Table.Compute("count(姓名)", "性别 = '男'")

Forms("中高级工资审").Controls("女").Text = e.Table.Compute("count(姓名)", "性别 = '女'")

End If

版主给看看这样写行不行？这其中e.table我没有按甜版说的写成具体的表名，而是用了原来最早写的代码格式，这样就可以了，有没更优化的写法？

[此贴子已经被作者于2019/1/5 16:18:24编辑过]

Dim IsCompute As Boolean

Dim fs() As String = {"鉴定信息汇总","报名登记汇总","中高级工资审"}

Dim 总人数 As Integer

Dim 初级工 As Integer

……其他定义参考补充完整

For Each f As String In fs

If Forms(f).Opened Then

If IsCompute = False

IsCompute =True

总人数 = e.Table.Compute("count(姓名)")

初级工 = e.Table.Compute("count(姓名)", "鉴定等级 = '初级工'")

……其他定义参考补充完整

End If

Forms(f).Controls("总人数").Text = 总人数

Forms(f).Controls("初级工").Text = 初级工

……其他定义参考补充完整

End If

谢谢蓝版指教，表的DataColChanged事件代码那样写应该没有问题吧，要不要作相应的改动？

DataColChanged事件：

If e.DataCol.Name = "鉴定等级" Then

e.Form.Controls("总人数").Text = e.DataTable.Compute("count(姓名)",Tables("鉴定管理表").filter)

e.Form.Controls("初级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '初级工' And " & iif(Tables("鉴定管理表").filter>"",Tables("鉴定管理表").filter,"1=1"))

e.Form.Controls("中级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '中级工' And " & iif(Tables("鉴定管理表").filter>"",Tables("鉴定管理表").filter,"1=1"))

e.Form.Controls("高级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '高级工' And " & iif(Tables("鉴定管理表").filter>"",Tables("鉴定管理表").filter,"1=1"))

e.Form.Controls("技师").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '技师' And " & iif(Tables("鉴定管理表").filter>"",Tables("鉴定管理表").filter,"1=1"))

e.Form.Controls("高级技师").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '高级技师' And " & iif(Tables("鉴定管理表").filter>"",Tables("鉴定管理表").filter,"1=1"))

e.Form.Controls("男").Text = e.DataTable.Compute("count(姓名)", "性别 = '男' And " & iif(Tables("鉴定管理表").filter>"",Tables("鉴定管理表").filter,"1=1"))

e.Form.Controls("女").Text = e.DataTable.Compute("count(姓名)", "性别 = '女' And " & iif(Tables("鉴定管理表").filter>"",Tables("鉴定管理表").filter,"1=1"))

End If

如果是主表事件，e.form改为具体的窗口名称Forms("鉴定信息汇总")

这个没理解，表就1个（算主表吧），我是用导航窗口打开其它窗口，Forms("鉴定信息汇总")只是其中的一个窗口，每个副表都在自己的窗口中，那是不是对应每个窗口都要在事件中写上一段？

逻辑一样，参考24、25楼，或者放到内部函数中，然后调用函数

谢蓝版指点，我的开发版只能升级到去年4月，不支持内部函数，想继续升级购买，单位领导还没批。

我把中间那段依葫芦画瓢替换了一下，结果还不错，没报错，运行反应也相对以前的代码快捷了很多倍，也没有什么卡顿。只是窗口打开时间还需要那么4－5秒钟，不过也比以前快了不少！

主题：Table、副表和SQLTable问题求助