主题：条件代码求助

高级工报考技师：

1、工种有---工种1、工种2、工种3、工种4、工种5、......工种20，其中工种1－工种5属于相近工种，工种6－工种10属于相近工种，......

    假设员工甲原来取得了工种1的高级工证书，现在他其他条件都符合，想考工种2（只要是工种1的相近工种就可以）的技师，这在报考条例里是允许的；

    现在的高级工－技师判定合格与否的代码如下---

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("原技术资格等级") = "技师"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "高级工" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3
        Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 = '" & e.DataRow("申报鉴定工种") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
        e.DataRow("是否合格") = fdr IsNot Nothing
    Else
        e.DataRow("是否合格") = False
    End If
End If

但还是在判断上有欠缺，请版主指教：这是否可以通过代码写入实现，是否要建个“相近工种表”之类的？

谢谢版主，这就去试，但这个相近工种表好象列上面不好处理，一溜下来？

另外，从上面这句代码我没看出来和“相近工种表”有什么关系？

明白，谢谢版主！

再求版主指教：工种大概有100多个，分成7、8组，每组少的有7、8个工种，多的有11、12个工种，我是不是要每组都写1句代码？

比如说：

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

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

谢谢版主！

此主题相关图片如下：azo%mfsp`1teg`8)}(9n1`c.png


此主题相关图片如下：vf_y_1ip(d6rnvp_~why05.png

上面是我建的两种“相近工种表”

 

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”和下面那段的“工种1”应该不是指具体的工种吧？我理解应该是“相近工种表”里的“各相近工种列，即“第*考评组””，那么下面那段的“工种”是指对应哪一列？或者具体的工种？

 

我按理解写了几段不同的代码，但都报错，“相近工种表”也做了两种，下面代码是我最后琯的一部分，

Else If e.DataRow("原技术资格等级") = "高级工" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3
        Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in (" & "'第一考评组', '第二考评组', '第三考评组','第四考评组','第五考评组','第六考评组','第七考评组'" & ") And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
        Dim dr As DataRow
        dr = DataTables("相近工种表").Find("第一考评组 like '%" & e.DataRow("申报鉴定工种") & "%'")
        msgbox(dr("第一考评组"))
具体问题在嗜好，请版主指教明示？

 

我这就去改改，看看能不能行

 

Else If e.DataRow("原技术资格等级") = "高级工" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3
        Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in (" & "'变电站值班员', '内线安装工', '继电保护工','水轮机检修工','配电线路工','装表接电工','抄表核算收费员'" & ") And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
        Dim dr As DataRow
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("变电站值班员") & "%'")
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("内线安装工") & "%'")
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("继电保护工") & "%'")
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("水轮机检修工") & "%'")
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("配电线路工") & "%'")
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("装表接电工") & "%'")
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("抄表核算收费员") & "%'")
        msgbox(dr("工种"))
这样写错在哪？我根据相近工种的组，每组取了一个工种写的，但还是报错？