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

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("鉴定统计表")
If e.DataCol.Name = "工作单位" And dr.IsNull("工作单位") = False Then
    dr("中级工") = dt.Compute("Count(工作单位)", dr("中级工") & " 中级工")
    dr("高级工") = dt.Compute("Count(工作单位)", dr("高级工") & " 高级工" )
    dr("技师") = dt.Compute("Count(工作单位)", dr("技师") & " 技师" )
    dr("高级技师") = dt.Compute("Count(工作单位)", dr("高级技师") & " 高级技师" )
   
End If

甜版，这段代码写入后，下面表没反应，总感觉哪不对，但不知错在哪里？请指教！

If e.DataCol.Name = "鉴定等级" Then
    If Forms("成绩审核").Opened Then
        Forms("成绩审核").Controls("中级工").Text = e.DataTable.Compute("count(工作单位)", "鉴定等级 = '中级工' And " & iif(Tables("鉴定统计表").filter>"",Tables("鉴定统计表").filter,"1=1"))
        Forms("成绩审核").Controls("高级工").Text = e.DataTable.Compute("count(工作单位)", "鉴定等级 = '高级工' And " & iif(Tables("鉴定统计表").filter>"",Tables("鉴定统计表").filter,"1=1"))
        Forms("成绩审核").Controls("技师").Text = e.DataTable.Compute("count(工作单位)", "鉴定等级 = '技师' And " & iif(Tables("鉴定统计表").filter>"",Tables("鉴定统计表").filter,"1=1"))
        Forms("成绩审核").Controls("高级技师").Text = e.DataTable.Compute("count(工作单位)", "鉴定等级 = '高级技师' And " & iif(Tables("鉴定统计表").filter>"",Tables("鉴定统计表").filter,"1=1"))
       

    End If
End If

甜版，我在下表的DataColChanged事件里写入上述代码，没反应，是哪错了？

看了N个小时、换了N种代码组合，还是没能理解我该怎么写代码！！！！！！

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("学生成绩")
If e.DataCol.Name = "科目" And dr.IsNull("科目") = False Then
dr("分布_60分以下") = dt.Compute("Count(姓名)", dr("科目") & " < 60")
dr("分布_60分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 60 And " & dr("科目") & " < 70" )
dr("分布_70分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 70 And " & dr("科目") & " < 80" )
dr("分布_80分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 80 And " & dr("科目") & " < 90" )
dr("分布_90分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 90 And " & dr("科目") & " < 100" )
dr("分布_100分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 100 And " & dr("科目") & " < 110" )
dr("分布_110分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 110 And " & dr("科目") & " < 120" )
dr("分布_120分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 120 And " & dr("科目") & " < 130" )
dr("分布_130分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 130" )
End If

这段代码我理解：DataTables("学生成绩")应该是指上面的表"成绩审核表"，那些个“分布多少分什么的应该相当于"工作单位"，"科目"相当于"鉴定工种"，可我写下列代码却没用，错在哪？

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("成绩审核表")
If e.DataCol.Name = "鉴定工种" And dr.IsNull("鉴定工种") = False Then
dr("初级工") = dt.Compute("Count(姓名)", dr("鉴定工种") & " 初级工")
dr("中级工") = dt.Compute("Count(姓名)", dr("鉴定工种") & " 中级工")
dr("高级工") = dt.Compute("Count(姓名)", dr("鉴定工种") & " 高级工" )
dr("技师") = dt.Compute("Count(姓名)", dr("鉴定工种") & " 技师" )
dr("高级技师") = dt.Compute("Count(姓名)", dr("鉴定工种") & " 高级技师" )

End If

在窗口里，上面的表叫“成绩审核表”，下面的表叫“鉴定统计表”，工作单位也输入完毕，但好象没什么作用，不知代码错在哪？

谢谢甜版，这段代码我能理解了。通过点“重置列”可以到达要求，我想让其自动变化，

在项目事件的MainTableChanged事件中设置如下代码：

If MainTable.Name = "鉴定统计表" Then
    DataTables("鉴定统计表").DataCols("鉴定等级 = '' and 工作单位 = ''").RaiseDataColChanged()
End If

表里不会自动变动，还是要通过重置列变动，是什么原因？

If MainTable.Name = "鉴定统计表" Then
    DataTables("鉴定统计表").DataCols("鉴定等级 = '' and 工作单位 = ''").RaiseDataColChanged()
End If

结果报错！

还是有些问题搞不明白，

一、上表有变动，下表要变化有2种方式，1、点重置列；2、先关闭项目再重开；

二、查询里面点任何条件查询，下表不会变，点重置列也不行；想象中间下面的文本框那样随查询条件、人员变化什么自动变；