[求助]急！求高手指点代码修改！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]急！求高手指点代码修改！

共有4756人关注过本帖树形打印复制链接主题：[求助]急！求高手指点代码修改！

czy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2013/8/17 16:55:00 [显示全部帖子]

如果就这样的要求，调换下列名称位置就行了

Select Case User.Name
    Case "张三","李四"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列"
                e.Cancel = True
        End Select
    Case "王五", "赵六"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列"

e.Cancel = True
End Select
End Select

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2013/8/17 17:04:00 [显示全部帖子]

以下是引用physics在2013-8-17 16:56:00的发言：
不行的。条件是只允许。如还有其它用户，他们还没限制的编辑的呢。。

那个换个方式

e.Cancel = True
Select Case User.Name
    Case "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列"
                e.Cancel = False
        End Select
    Case "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列"
                e.Cancel = False
        End Select
End Select

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2013/8/17 17:08:00 [显示全部帖子]

如果还有用户无需限制的可以这样

If User.Name = "开发者"
    Return
End If
e.Cancel = True
Select Case User.Name
    Case "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列"
                e.Cancel = False
        End Select
    Case "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列"
                e.Cancel = False
        End Select
End Select

下一主题 >> << 上一主题

主题：[求助]急！求高手指点代码修改！