此主题相关图片如下：001212.png

这段代码很普通,哪里出错了

For Each dr2 As DataRow In DataTables("临时_员工编号").DataRows
    Dim dr As DataRow = DataTables("员工档案").Find("姓名 = \'" & dr2("姓名") & "\'")
    If dr Is Nothing Then
        dr.Locked=False
        dr("员工编号") = dr2("编号")       
        dr("部门")=dr2("部门")
        dr("当前岗位")=dr2("职务")
        dr("当前状态")="在职"
    Else
        dr = DataTables("员工档案").AddNew()
        dr("员工编号")=dr2("编号")
        dr("姓名")=dr2("姓名")
        dr("部门")=dr2("部门")
        dr("当前岗位")=dr2("职务")
        dr("当前状态")="在职"
    End If
Next

可能出错的情况 是哪些

汗....

If dr Is Nothing Then

改成

If dr IsNot Nothing Then