以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断真假  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174808)
--  作者：lisangyu
--  发布时间：2022/2/7 15:04:00
--  判断真假
蓝总：
Dim dr2 As DataRow
            dr2 = DataTables("用户信息表").Find("username=\'" & _UserName & "\'")
            Dim qx As String = dr2("浏览权限")
            Dim r As Row = Tables("主窗口_table1").Current

判断qx.Contains(r("一级目录"))  是否为真， 假如dr2("浏览权限") 为“技术类，档案类，视频类”，而r("一级目录")为空，结果qx.Contains(r("一级目录")) 为真，是包含空吗？怎么排除空？让结果为假？
--  作者：有点蓝
--  发布时间：2022/2/7 15:30:00
--  
只能单独判断单元格是否空值

if r.isnull("一级目录") then
为假
else
判断qx.Contains(r("一级目录"))
endif
--  作者：lisangyu
--  发布时间：2022/2/7 15:38:00
--  
 _UserIsRole.Contains("管理人员") Or _UserIsRole.Contains("系统管理员") Or r("二级目录") = _userGroup Or (qx.Contains(r("一级目录")) Or qx.Contains(r("二级目录")) Or qx.Contains(r("三级目录")) Or qx.Contains(r("四级目录"))) Then

我是利用Contains来做授权，结果qx.Contains(r("四级目录"))为真，取得权限,qx有内容，r("四级目录")实际上是空，本以为是结果是假，谁知道测试是真，我把r("四级目录")填上1就为假。
--  作者：有点蓝
--  发布时间：2022/2/7 15:52:00
--  
Contains空字符串肯定是真，只能在前先判断字符串是否为空
--  作者：lisangyu
--  发布时间：2022/2/7 16:06:00
--  
我知道了，谢谢蓝总。 用非空判断加and