| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 判断 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134930) |
| -- 作者：nxqtxwz -- 发布时间：2019/5/13 11:44:00 -- 判断 请问： 采购人列中有3-4个人的名字，名字中间用“，”隔开，想要做到： 判断如果USER.name等于采购人列中的任何一个人，且是否入库逻辑列为“否”，则可以对A、B、C三列进行修改，代码怎么写呢？
|
| -- 作者：有点甜 -- 发布时间：2019/5/13 11:59:00 --
If e.row("采购人").contains(user.name) andalso e.row("是否入库") = "否" Then \'允许编辑 Else e.cancel = true End If |
| -- 作者：nxqtxwz -- 发布时间：2019/5/13 17:56:00 -- 这是错在哪了，为什么总是出现未知编译错误啊？ If e.row("采购人").contains(user.name) andalso e.row("是否入库") = False Then \'允许编辑 Else e.cancel = true End If |
| -- 作者：有点甜 -- 发布时间：2019/5/13 18:13:00 -- Dim s = user.name \'允许编辑 Else e.cancel = True End If |
| -- 作者：nxqtxwz -- 发布时间：2019/5/13 18:20:00 -- 老师，还是不行啊，我这是在按钮的Click事件中写的代码。 |
| -- 作者：有点甜 -- 发布时间：2019/5/13 18:21:00 -- 以下是引用nxqtxwz在2019/5/13 18:20:00的发言：
老师，还是不行啊，我这是在按钮的Click事件中写的代码。
startEdit事件写代码啊。 |
| -- 作者：nxqtxwz -- 发布时间：2019/5/13 19:28:00 -- 以下是引用有点甜在2019/5/13 18:21:00的发言：
startEdit事件写代码啊。 老师您好，我的这个代码只能写在窗口的Click事件中怎么写呢？ 因为是个按钮，按下后执行代码。 |
| -- 作者：有点蓝 -- 发布时间：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
|