主题：甜版，表达式问题求教！！！！！

统计表DataCochanged事件写入代码

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("成绩审核表")
If e.DataCol.Name = "工作单位" Then
    dr("初级工") = dt.Compute("Count(姓名)", "鉴定等级 = '初级工' and 工作单位 = '" & dr("工作单位")  & "'" )
    dr("中级工") = dt.Compute("Count(姓名)", "鉴定等级 = '中级工' and 工作单位 = '" & dr("工作单位")  & "'" )
    dr("高级工") = dt.Compute("Count(姓名)", "鉴定等级 = '高级工' And 工作单位 = '" & dr("工作单位")  & "'" )   
End If