此主题相关图片如下：000000000000009.png
Select Case e.DataCol.name Case "工号"
Dim dr As DataRow = DataTables("学员资料").Find("姓名= '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("学员资料").AddNew()
dr("姓名") = e.DataRow("姓名")
dr("工号") = e.DataRow("工号")
dr("性别") = e.DataRow("性别")
dr("生日") = e.DataRow("生日")
dr("年龄") = e.DataRow("年龄")
dr("司龄") = e.DataRow("司龄")
dr("部门") = e.DataRow("部门")
dr("岗位") = e.DataRow("岗位")
dr("职级") = e.DataRow("职级")
dr("学历") = e.DataRow("学历")
dr("电话") = e.DataRow("电话")
dr("工作状态") = e.DataRow("工作状态")
dr("转正日期") = e.DataRow("转正日期")
Else
dr("工号") = e.DataRow("工号")
End If
Case "性别","工号","生日","年龄","司龄","部门","岗位","职级","学历","电话","工作状态","转正日期"
Dim dr As DataRow = DataTables("学员资料").Find("工号= '" & e.DataRow("工号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
加好友 
发短信
Post By：2019/1/20 12:30:00 [显示全部帖子]
