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


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

主题:判断

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
判断  发帖心情 Post By:2019/5/13 11:44:00 [只看该作者]

请问:

       采购人列中有3-4个人的名字,名字中间用“,”隔开,想要做到:

判断如果USER.name等于采购人列中的任何一个人,且是否入库逻辑列为“否”,则可以对A、B、C三列进行修改,代码怎么写呢?

 


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


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

 

If e.row("采购人").contains(user.name) andalso e.row("是否入库") = "否" Then

    '允许编辑

Else

    e.cancel = true

End If


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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2019/5/13 17:56:00 [只看该作者]

这是错在哪了,为什么总是出现未知编译错误啊?

If e.row("采购人").contains(user.name) andalso e.row("是否入库") = False Then

    '允许编辑

Else

    e.cancel = true

End If


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


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

Dim s = user.name
If e.Row("采购人").contains(s) AndAlso e.Row("是否入库") = False Then

    '允许编辑

Else

    e.cancel = True

End If


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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2019/5/13 18:20:00 [只看该作者]

老师,还是不行啊,我这是在按钮的Click事件中写的代码。

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


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

以下是引用nxqtxwz在2019/5/13 18:20:00的发言:
老师,还是不行啊,我这是在按钮的Click事件中写的代码。

 

startEdit事件写代码啊。


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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2019/5/13 19:28:00 [只看该作者]

以下是引用有点甜在2019/5/13 18:21:00的发言:

 

startEdit事件写代码啊。

老师您好,我的这个代码只能写在窗口的Click事件中怎么写呢?

因为是个按钮,按下后执行代码。


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


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/13 20:17:00 [只看该作者]

Dim r As Row = Tables("表A").current
If r IsNot Nothing Then
    If r("采购人").contains(s) AndAlso r("是否入库") = False Then
        '允许编辑
    Else
        '不允许编辑
    End If
End If

 回到顶部