Foxtable(狐表)用户栏目专家坐堂 → 请教:删除员工信息 ,同时对应表中的员工也删除,但是出现问题?


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

主题:请教:删除员工信息 ,同时对应表中的员工也删除,但是出现问题?

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


加好友 发短信
等级:九尾狐 帖子:2551 积分:20029 威望:0 精华:0 注册:2012/5/19 11:57:00
请教:删除员工信息 ,同时对应表中的员工也删除,但是出现问题?  发帖心情 Post By:2018/9/18 15:57:00 [只看该作者]

请教:删除员工信息 ,同时对应表中的员工也删除,但是出现问题? 如果删除第一条 则其他表对应员工删除不了,数据还在,从中间删除能删除?为啥,请教!代码如下
If Tables("人员信息").Current Is  Nothing Then
    Return
End If
Dim Result As DialogResult
Result = MessageBox.Show("确定删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim gh As String
    gh=Tables("人员信息").current("员工号")
    Dim pr1 As DataRow
    Tables("人员信息").Current.Delete
    Tables("人员信息").save()
    pr1 = DataTables("全部").Find("员工号 = '" & gh & "'")
    If pr1 IsNot  Nothing Then
        Tables("全部").current.delete()
    End If
    Dim pr2 As DataRow
    pr2 = DataTables("工资信息").Find("员工号 = '" & gh & "'")
    If pr2 IsNot  Nothing Then
        Tables("工资信息").current.delete()
    End If
    Dim pr3 As DataRow
    pr3 = DataTables("绩效奖金").Find("员工号 = '" & gh & "'")
    If pr3 IsNot  Nothing Then
        Tables("绩效奖金").current.delete()
    End If
    Dim pr4 As DataRow
    pr4 = DataTables("其他补贴奖项").Find("员工号 = '" & gh & "'")
    If pr4 IsNot  Nothing Then
        Tables("其他补贴奖项").current.delete()
    End If
End  If


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


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

If Tables("人员信息").Current Is  Nothing Then
    Return
End If
Dim Result As DialogResult
Result = MessageBox.Show("确定删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim gh As String
    gh=Tables("人员信息").current("员工号")
    Tables("人员信息").Current.Delete
    DataTables("全部").deletefor("员工号 = '" & gh & "'")
    DataTables("工资信息").deletefor("员工号 = '" & gh & "'")
    DataTables("绩效奖金").deletefor("员工号 = '" & gh & "'")
    DataTables("其他补贴奖项").deletefor("员工号 = '" & gh & "'")
End  If

 回到顶部