Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教老师为什么Tables("人员表")并没有被锁定


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

主题：请教老师为什么Tables("人员表")并没有被锁定
帅哥哟，离线，有人找我吗？
lzzhx
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		请教老师为什么Tables("人员表")并没有被锁定  发帖心情 Post By：2015/3/25 21:15:00 [显示全部帖子]

请教老师：
人员表 - AfterLoadTableSetting　　事件中，全局变量　_UserGroup　＝　“‘其它操作人员’”

下面代码执行后，Tables("人员表")并没有被锁定，请教问题出在什么地方？
'确定表及记录的编辑权限
If _UserGroup = "系统管理员" Then
    With  Tables("人员表")
        .AllowEdit = True
        .Cols("用户分组").AllowEdit = True
        .Cols("用户姓名").AllowEdit = True
        .Cols("部门编号").AllowEdit = False
        .Cols("部门编号").Visible = True
        .Cols("部门").AllowEdit = False
        .Cols("用户密码").AllowEdit = True
        .Cols("创建者ID").AllowEdit = False
        .Cols("创建者名称").AllowEdit = False
        .Cols("已登录").Visible = True
        .Cols("编辑者").Visible = True
        .Cols("编辑者").AllowEdit = False
        .Cols("IP地址").AllowEdit = False
        .Cols("IP地址").Visible = True
        .Cols("范围").Visible = True
    End With
Else
    If _UserGroup Like "*管理员*"  Then
        With  Tables("人员表")
            .AllowEdit = True
            .Cols("用户分组").AllowEdit = True
            .Cols("用户姓名").AllowEdit = True
            .Cols("部门编号").AllowEdit = False
            .Cols("部门编号").Visible = True
            .Cols("部门").AllowEdit = False
            .Cols("用户密码").AllowEdit = False
            .Cols("创建者ID").AllowEdit = False
            .Cols("创建者名称").AllowEdit = False
            .Cols("已登录").Visible = False
            .Cols("编辑者").Visible = False
            .Cols("编辑者").AllowEdit = False
            .Cols("IP地址").AllowEdit = False
            .Cols("IP地址").Visible = False
            .Cols("范围").Visible = False
        End With
     Else
             e.Table.AllowEdit = False
           ' .Cols("用户分组").AllowEdit = False
           ' .Cols("用户姓名").AllowEdit = False
           ' .Cols("部门编号").AllowEdit = False
           ' .Cols("部门编号").Visible = True
           ' .Cols("部门").AllowEdit = False
           ' .Cols("用户密码").AllowEdit = False
           ' .Cols("创建者ID").AllowEdit = False
           ' .Cols("创建者名称").AllowEdit = False
           ' .Cols("已登录").Visible = False
           ' .Cols("编辑者").Visible = False
           ' .Cols("编辑者").AllowEdit = False
           ' .Cols("IP地址").AllowEdit = False
           ' .Cols("IP地址").Visible = False
           ' .Cols("范围").Visible = False
       ' End With
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 21:19:00 [显示全部帖子]

后来在倒数第4行增加了一个消息框，发现每次打开窗口，消息框要弹出2次，好象 AfterLoadTableSetting事件的代码执行了2次似的，但表就是不锁定。

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 21:20:00 [显示全部帖子]

没有在命令窗口试过，但设置属性时可以锁定

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 21:24:00 [显示全部帖子]

在命令窗口执行后表锁定了。
不是副本表
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 21:26:00 [显示全部帖子]

同样的代码，在命令窗口执行后表就锁定了，但放在 AfterLoadTableSetting事件中表就锁不住

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 21:32:00 [显示全部帖子]

加了1个消息框，执行后出现2次消息框，程序执行了2遍，就是找不到原因



'确定表及记录的编辑权限
If _UserGroup = "系统管理员" Then
    With  Tables("人员表")
        .AllowEdit = True
        .Cols("用户分组").AllowEdit = True
        .Cols("用户姓名").AllowEdit = True
        .Cols("部门编号").AllowEdit = False
        .Cols("部门编号").Visible = True
        .Cols("部门").AllowEdit = False
        .Cols("用户密码").AllowEdit = True
        .Cols("创建者ID").AllowEdit = False
        .Cols("创建者名称").AllowEdit = False
        .Cols("已登录").Visible = True
        .Cols("编辑者").Visible = True
        .Cols("编辑者").AllowEdit = False
        .Cols("IP地址").AllowEdit = False
        .Cols("IP地址").Visible = True
        .Cols("范围").Visible = True
    End With
Else
    If _UserGroup Like "*管理员*"  Then
        With  Tables("人员表")
            .AllowEdit = True
            .Cols("用户分组").AllowEdit = True
            .Cols("用户姓名").AllowEdit = True
            .Cols("部门编号").AllowEdit = False
            .Cols("部门编号").Visible = True
            .Cols("部门").AllowEdit = False
            .Cols("用户密码").AllowEdit = False
            .Cols("创建者ID").AllowEdit = False
            .Cols("创建者名称").AllowEdit = False
            .Cols("已登录").Visible = False
            .Cols("编辑者").Visible = False
            .Cols("编辑者").AllowEdit = False
            .Cols("IP地址").AllowEdit = False
            .Cols("IP地址").Visible = False
            .Cols("范围").Visible = False
        End With
     Else
            Tables("人员表").AllowEdit = False
           ' .Cols("用户分组").AllowEdit = False
           ' .Cols("用户姓名").AllowEdit = False
           ' .Cols("部门编号").AllowEdit = False
           ' .Cols("部门编号").Visible = True
           ' .Cols("部门").AllowEdit = False
           ' .Cols("用户密码").AllowEdit = False
           ' .Cols("创建者ID").AllowEdit = False
           ' .Cols("创建者名称").AllowEdit = False
           ' .Cols("已登录").Visible = False
           ' .Cols("编辑者").Visible = False
           ' .Cols("编辑者").AllowEdit = False
           ' .Cols("IP地址").AllowEdit = False
           ' .Cols("IP地址").Visible = False
           ' .Cols("范围").Visible = False
       ' End With
         MessageBox.Show("试验!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 21:56:00 [显示全部帖子]

老师：我把代码导出后，仔细搜索了一遍，确实没有在其它地方重新设置了其可以编辑

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 22:00:00 [显示全部帖子]

afterload事件中主要是设置记录加载的范围，我现在把这段代码放到afterload事件中再试一下

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 22:10:00 [显示全部帖子]

老师：把这段代码放到窗体的afterload事件中执行后，表锁定了，也没有出现执行2遍（消息框出现2次）的现象

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2015/3/25 22:28:00 [显示全部帖子]

明白了，谢谢老师指教

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05591 秒, 5 次数据查询