If e.DataCol.Name = "身份证号" Then '如果更改的是身份证号码列
If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
Else
'否则从身份证号码列中提取出生日期
e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
End If
End If
If e.DataCol.Name = "入职确认"
If e.DataRow("入职确认") = True Then
Dim dr As DataRow = DataTables("在职员工表").Find("身份证号 = '" & e.DataRow("身份证号") & "'")
If dr Is Nothing Then
dr = DataTables("在职员工表").AddNew
Else
If MessageBox.Show("已在职,是否更新信息?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
Return
End If
End If
Dim nma() As String = {"姓名","性别","身份证号","应聘岗位","学历","联系电话","联系地址","照片","入职时间"} 'A表数据来源列
Dim nmb() As String = {"姓名","性别","身份证号","岗位","学历","联系电话","联系地址","照片","上岗日期"} 'B表数据接收列
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Else
DataTables("在职员工表").deletefor("身份证号 = '" & e.DataRow("身份证号") & "'")
End If
End If
加好友 
发短信
Post By：2018/11/27 21:08:00 [只看该作者]
