表1（工种目录表）中有“鉴定工种”和“代码”列，其中“代码”列是空值；

表2（证书编号表）中有“工种”和“代码”列；表2中的“代码”列非空，相应工种对应相应代码；

如表1中的“鉴定工种”列内容和表2中的“工种”列一样，则表1中的“代码”列就和表2中有“代码”列一样，就是表2 中直接引用过来

请教下面代码问题出在哪？谢谢！！！！！

Select Case e.DataCol.Name
    Case "鉴定工种","代码"
        If e.DataRow("评审结果") = "通过" Then
            Dim fdr As DataRow = DataTables("工种目录表").Find("工种 = \'" & e.DataRow("鉴定工种") & "\'")
            If fdr IsNot Nothing Then
                e.DataRow("代码") = e.DataRow("代码")
            End If
        End If
End Select

对不起，写错了：

表1（证书编号表）中有“鉴定工种”和“代码”列，其中“代码”列是空值；

表2（工种目录表）中有“工种”和“代码”列；表2中的“代码”列非空，相应工种对应相应代码；

如表1中的“鉴定工种”列内容和表2中的“工种”列一样，则表1中的“代码”列就和表2中有“代码”列一样，就是表2 中直接引用过来

请教下面代码问题出在哪？谢谢！！！！！

Select Case e.DataCol.Name
    Case "鉴定工种","代码"
        If e.DataRow("评审结果") = "通过" Then
            Dim fdr As DataRow = DataTables("工种目录表").Find("工种 = \'" & e.DataRow("鉴定工种") & "\'")
            If fdr IsNot Nothing Then
                e.DataRow("代码") = e.DataRow("代码")
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "鉴定工种","代码", "通过"
        If e.DataRow("评审结果") = "通过" Then
            Dim fdr As DataRow = DataTables("工种目录表").Find("工种 = \'" & e.DataRow("鉴定工种") & "\'")
            If fdr IsNot Nothing Then
                e.DataRow("代码") = e.DataRow("代码")
            End If
        End If
End Select

还是没反应！

1、加入msgbox弹出信息看看；

2、你要修改列或者重置列才会计算啊

我是重置了列