主题：代码优化就帮助！

写到afterfilter事件。

代码改成

Dim IsCompute As Boolean
Dim 总人数 As Integer
Dim 男 As Integer
Dim 女 As Integer
Dim 初级工 As Integer
Dim 中级工 As Integer
Dim 高级工 As Integer
Dim 技师 As Integer
Dim 高级技师 As Integer
If e.Table.Form IsNot Nothing Then
    Dim frm = e.Table.Form
    If IsCompute = False
        IsCompute =True
        总人数 = e.Table.Compute("count(姓名)")
        男 = e.Table.Compute("count(姓名)", "性别 = '男'")
        女 = e.Table.Compute("count(姓名)", "性别 = '女'")
        初级工 = e.Table.Compute("count(姓名)", "鉴定等级 = '初级工'")
        中级工 = e.Table.Compute("count(姓名)", "鉴定等级 = '中级工'")
        高级工 = e.Table.Compute("count(姓名)", "鉴定等级 = '高级工'")
        技师 = e.Table.Compute("count(姓名)", "鉴定等级 = '技师'")
        高级技师 = e.Table.Compute("count(姓名)", "鉴定等级 = '高级技师'")
    End If
    frm.Controls("总人数").Text = 总人数
    frm.Controls("男").Text = 男
    frm.Controls("女").Text = 女
    frm.Controls("初级工").Text = 初级工
    frm.Controls("中级工").Text = 中级工
    frm.Controls("高级工").Text = 高级工
    frm.Controls("技师").Text = 技师
    frm.Controls("高级技师").Text = 高级技师
   
End If