Foxtable(狐表)用户栏目专家坐堂 → 删除前判断


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

主题:删除前判断

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


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
删除前判断  发帖心情 Post By:2020/8/11 15:44:00 [只看该作者]

有个员工信息表,想实现该员工在这个系统 的所有表中,如果都没有这个名字才可以删除,这个作为一个判断条件,当然具有很高权限的人,可以排除这个判断条件的,这个怎么写呀。

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/11 15:55:00 [只看该作者]

只能一个一个表的查了

比如:
Dim nms() As String = {"表A","表B",....}
Dim name As String = "张三"
Dim f As Boolean
For Each m As String In nms
    If DataTables(m).DataCols.Contains("姓名")
        If DataTables(m).DataCols.Contains("姓名")
            If DataTables(m).Find("姓名='" & name & "'") IsNot Nothing Then
                f = True
                Exit For
            End If
        End If
    End If
Next

If f = True Then
msgbox("有")
Else
msgbox("没有,可以删除")
End If

如果都是外部表,建议在数据库里建一个视图,类似:

select 姓名 from 表A union select 姓名 from 表B  union .......

然后通过sql判断:select count(*) from 某视图 where 姓名 = '张三'

 回到顶部