主题：项目问题求助版主！

改代码

Dim dr As DataRow
dr = DataTables("工种目录表").Find("[" & e.DataRow("鉴定等级") & "] = '" & e.NewValue & "'")
If dr IsNot Nothing
    e.DataRow("鉴定工种") = dr("鉴定工种")
    e.DataRow("代码") = dr("工种代码")
    e.DataRow("职业技能鉴定机构名称") = "江西省发供电及电力建设国家职业技能鉴定站"
    e.DataRow("鉴定中心") = "江西"
End If

                    dr = DataTables("工种目录表").Find("[鉴定工种] = '" & e.NewValue & "' or 高级工 = '" & e.newvalue & "'")