[原创]菜单代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]菜单代码问题

共有4006人关注过本帖树形打印复制链接主题：[原创]菜单代码问题

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/28 10:19:00 [显示全部帖子]

If User.IsRole("投融资_主管") Then
    For Each r As Row In Tables("贷款信息总表").Rows
        If r("选择行") = True Then
            r("FH") = User.Name
            r.Save()
        End If
    Next
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/28 10:43:00 [显示全部帖子]

允许，就不用写，不允许，才写啊。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/28 10:44:00 [显示全部帖子]

If e.Row("JBDW") <> User.Group OrElse e.Row("录入人") <> User.NAME OrElse E.Row.IsNULL("fh") = False Then '在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
    e.Cancel = True
End If
If e.Col.Name = "选择行" Then
    If User.Roles <> "张经理" Then
        e.Cancel = True
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/28 10:54:00 [显示全部帖子]

If e.Row("JBDW") <> User.Group AndAlso e.Row("录入人") <> User.NAME AndAlso E.Row.IsNULL("fh") = False Then '在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
e.Cancel = True
End If

If e.Col.Name = "选择行" Then
    If User.Roles <> "张经理" Then
        e.Cancel = True
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/28 11:02:00 [显示全部帖子]

你逻辑是什么啊，根据自己的逻辑写代码啊

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/28 11:07:00 [显示全部帖子]

If e.Col.Name = "选择行" Then
    If User.Roles <> "张经理" Then
        e.cancel = True
    End If
Else
    If e.Row("JBDW") <> User.Group OrElse e.Row("录入人") <> User.NAME OrElse e.Row.IsNULL("fh") = False Then '在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
        e.Cancel = True
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/28 11:16:00 [显示全部帖子]

看11楼。

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

主题：[原创]菜单代码问题