主题：自动填表

If e.DataCol.name = "姓名" Then

    If e.DataRow.isnull("姓名")

        e.DataRow("现岗位_级别")= Nothing

        ……其它自己补充

    Else

        Dim dr As DataRow = DataTables("职工信息总表").Find("姓名='" & dr("姓名") & "'")

        If dr IsNot Nothing

            e.DataRow("现岗位_级别")= dr("岗位类别")

            e.DataRow("现岗位_晋级日期")= dr("岗位晋级_晋级日期")

            e.DataRow("资历考核_工作资历_工作时间")= dr("工作时间")

            e.DataRow("资历考核_工作资历_工作年限")= dr("工龄")

            e.DataRow("资历考核_任职资历_职称")= dr("zczczj")

            e.DataRow("资历考核_任职资历_评定时间")= dr("zcpdrq")

        End If

    End If

End If