Foxtable(狐表)用户栏目专家坐堂 → [求助] 代码报错


  共有3085人关注过本帖树形打印复制链接

主题:[求助] 代码报错

帅哥哟,离线,有人找我吗?
81538475
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助] 代码报错  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/11 12:33:00 [只看该作者]


 回到顶部