主题：条件代码求助

 做一个相近工作表。

 然后，根据申报工种，去查得到对应的工种，然后查证书表

 Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in (" & "'工种1', '工种2', '工种3'" & ") And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")

多值字段列，同一工种，写在一列。

看红色代码，查出红色代码的内容

Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in (" & "'工种1', '工种2', '工种3'" & ") And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")

 叫你先根据本行的工种，去查表啊

Dim dr As DataRow
dr = DataTables("工种表").Find("工种 like '%" & e.DataRow("工种1") & "%'")

msgbox(dr("工种"))

1、那个表直接用一列就行啊，谁叫你用多列啊。

2、相同的工种，放在同一个单元格里面。

3、看上面楼层的查找方法，查出工种，拼凑成条件

 对你彻底无语。你能不能先去学基础啊。

Dim dr As DataRow
dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("申报鉴定工种") & "%'")
Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in ('" & dr("工种").Replace(",", "','") & "') And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")

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
End If

If e.DataRow("鉴定等级") = "技师" Then
    If e.DataRow("原技术资格等级") = "助理工程师(电力类)" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 4 Then
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "工程师(电力类)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "助理工程师(工业工程)" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 4 Then
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "工程师(工业工程)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "高级工程师(电力类)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "高级工程师(工业工程)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "技师"
        Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
        e.DataRow("是否合格") = fdr IsNot Nothing
    Else If e.DataRow("原技术资格等级") = "高级工" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3
        Dim dr As DataRow
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("申报鉴定工种") & "%'")
        If dr IsNot Nothing Then
            Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in ('" & dr("工种").Replace(",", "','") & "') And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
            e.DataRow("是否合格") = fdr IsNot Nothing
        Else
            e.DataRow("是否合格") = False
        End If
       
    Else
        e.DataRow("是否合格") = False
    End If
End If