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

填充工作单位进去表里。看完

 

http://www.foxtable.com/help/topics/0681.htm

 

看了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("工作单位").RaiseDataColChanged()
End If

 

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

  在统计表写代码啊。

 

 不会写，就请上传例子。

你条件也不对

我是在“鉴定统计表”里写的代码，可就是没搞懂错在哪？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:鉴定管理v1.rar

请甜版和BIN版指教，我对代码确实是小白，很多情况是理解不透！

统计表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

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

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

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

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

DataTables("鉴定统计表").DataCols("工作单位").RaiseDataColChanged()