以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 代码报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117366)
--  作者：81538475
--  发布时间：2018/4/11 12:28:00
--  [求助] 代码报错
希望 综合奖励记录表里面的姓名与人员信息表同步，并且当人员信息表的状态栏变为离职的时候，自动删除综合奖励记录表中的人员。麻烦看下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
--  作者：有点甜
--  发布时间：2018/4/11 12:33:00
--  

看看

 

http://www.foxtable.com/webhelp/scr/2490.htm