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 IfEnd Select