希望 综合奖励记录表里面的姓名与人员信息表同步，并且当人员信息表的状态栏变为离职的时候，自动删除综合奖励记录表中的人员。麻烦看下datacolchanged 代码需要怎么改。
Dim dr1 As DataRow = DataTables("综合奖惩记录表").Find("姓名 = '" & e.OldValue & "'")
Dim dr2 As DataRow = DataTables("人员信息表").Find("姓名 = '" & e.OldValue & "'")
If e.DataRow("状态") <> "离职" Then
Select Case e.DataCol.name '奖惩记录表同步姓名
Case "姓名"
If dr1 Is Nothing Then
dr1 = DataTables("综合奖惩记录表").AddNew()
dr1("姓名") = e.DataRow("姓名")
Else
dr1("姓名") = e.DataRow("姓名")
End If
End Select
Else If dr2("姓名")=dr1("姓名") Then
dr1("姓名").Delete()
End If
加好友 
发短信
Post By：2018/4/11 12:28:00 [显示全部帖子]
