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

 去学基础 http://www.foxtable.com/help/topics/0328.htm

1、

If e.DataCol.Name = "鉴定等级" Then
    If Forms("报名登记").Opened Then
        Forms("报名登记").Controls("总人数").Text = e.DataTable.Compute("count(姓名)",Tables("报名登记表").filter)
        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"))
        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
    If e.DataRow("鉴定等级") = "技师" Then
        Dim fdr As DataRow = DataTables("证书编号表").Find("鉴定等级 = '高级工' And 申报鉴定工种 = '" & e.DataRow("申报鉴定工种") & "' And convert(substring(鉴定批次,1,4),'System.Int32') <= " & Date.Today.Year - 5)
        If fdr IsNot Nothing Then
            e.DataRow("是否合格") = True
        Else
            e.DataRow("是否合格") = False
        End If
    End If
End If

那你就重置列

  要什么条件，就加上去。

Dim fdr As DataRow = DataTables("证书编号表").Find("鉴定等级 = '高级工' And 申报鉴定工种 = '" & e.DataRow("申报鉴定工种") & "' And 证书编号 = '" & e.DataRow("证书编号") & "' And convert(substring(证书编号,1,2),'System.Int32') <= " & Date.Today.Year - 2000 - 5)