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

恕我眼拙，我没看出代码方面在哪有变化，但随查询条件是有了变化，

1、可我想能不能在下表的所有工作单位顺序不随查询变动，查询的时候如没有人员则为0（比如以鉴定批次为例，某批次丁单位无高级工，则丁单位位置不动，高级工列为0）；

2、另外还是老问题，不点重置列，上表有变化，下表不会变！查询完后，下表不会回到全部单位都全的状态！

谢谢甜版耐心指导，我看了几遍都没找出到底您在哪做了修改，还有就是下面的统计表查询完后点清除查询按钮不会回到最初数据状态，除了点重置列可以，但边上的文本框里的数据可以随点“清除查询”按钮可以，这是不是不能做到？

甜版，我在这个问题上想消化明白的原因是，这个项目还有方面就可以举一返三，向外延展！！！！！！

谢谢甜版，差不多明白了，我在“鉴定统计表”的

CurrentChanged事件中加入了你写的代码就实现了我想要的功能，不过我还得好好消化消化，通过您点拨看看帮助可以快速找到自己想要的东西！

甜版，新问题求教：同一窗口中的3张表，其中1张表调用另2张表的数据（如表1的1－4列调用表2 的，5－8列调用表3的），要求是表1的数据随表2、表3的数据变化而变化，这3张表是不是要做关联？如果不要关联，那么表1 的DataCochanged、CurrentChanged事件代码可不可以将表1单独引用表2或表3的代码合并在一起写？语法上有什么要求吗？

这个我昨天就看了，可能我的意思没表达清，我前面向您讨教了“鉴定统计表”统计“证书编号表”中同一单位的不同级别的人数，其中“鉴定统计表”的DataCochanged、CurrentChanged事件代码是对1张表的；

现在我做了另1个窗口，有3张表，今天我问的意思差不多，只不过其中1张表统计另2张表，是不是能将代码合并写在表1中，行得通吗？语法上有什么要注意的？或者说要建立关联？

那代码是不是就简单的放在一起就行？

谢谢甜版，我开始写的时候认为语法上重复了，就减去了几行重复代码，结果报错，所以就来向您讨教了！

Dim dr As DataRow = e.DataRow
Dim dt As Table = Tables("证书编号表")
If e.DataCol.Name = "申报鉴定工种" Then
    dr("取得证书人数_初级工") = dt.Compute("Count(姓名)", "鉴定等级 = '初级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_中级工") = dt.Compute("Count(姓名)", "鉴定等级 = '中级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_高级工") = dt.Compute("Count(姓名)", "鉴定等级 = '高级工' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_技师") = dt.Compute("Count(姓名)", "鉴定等级 = '技师' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_高级技师") = dt.Compute("Count(姓名)", "鉴定等级 = '高级技师' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
   
  End If

Dim dr As DataRow = e.DataRow
Dim dt As Table = Tables("报名登记表")
If e.DataCol.Name = "申报鉴定工种" Then
    dr("鉴定考核人数_初级工") = dt.Compute("Count(姓名)", "鉴定等级 = '初级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_中级工") = dt.Compute("Count(姓名)", "鉴定等级 = '中级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_高级工") = dt.Compute("Count(姓名)", "鉴定等级 = '高级工' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_技师") = dt.Compute("Count(姓名)", "鉴定等级 = '技师' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_高级技师") = dt.Compute("Count(姓名)", "鉴定等级 = '高级技师' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
   
  End If

End If

 

甜版，简单加代码报错，是不是还要加代码？

我对代码语法的理解总是按中文的意思去写，所以出现问题！谢谢甜版！