升级后感觉不流畅了…… - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 升级后感觉不流畅了……

共有7516人关注过本帖树形打印复制链接主题：升级后感觉不流畅了……

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

升级后感觉不流畅了…… 发帖心情

Post By：2013/4/26 9:27:00 [显示全部帖子]

这是我个人问题么？前一个版本很流畅……

另外帮我看下这个代码貌似不生效

用开发部成员的权限进去列还是全部锁定状态

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2013/4/26 9:34:00 [显示全部帖子]

以下是引用Bin在2013-4-26 9:31:00的发言：
另外如果你想禁止整表修改直接DataTables("XX").AllowEdit=False 即可

谢谢

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2013/4/26 9:40:00 [显示全部帖子]

以下是引用Bin在2013-4-26 9:29:00的发言：
可以弹出一下看看是否正常获得User.Group 为开发部

在 IF UserGROP="开发部" 里面再弹出一下看看是否有进入到该IF语句内

在商务部权限下

messagebox.show(user.group)
If user.Group = "商务部" Then
messagebox.show(user.group)
    With DataTables("生产进度表")
        .DataCols("商务部_规定完成日").AllowEdit = True
        .DataCols("商务部_实际发货日").AllowEdit = True
        .DataCols("商务部_下单日").AllowEdit = True
    End With
End If

可以弹出两次商务部但是 allowedit = true 不生效

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2013/4/26 9:58:00 [显示全部帖子]

以下是引用Bin在2013-4-26 9:42:00的发言：
那你后面是否有代码又重新设置为FAlse了呢?

如果没有.把代码复制到命令窗口执行一次设置为TRUE 看有没效果.

依然没效果.把文件发出来.

下载信息 [文件大小：下载次数： ]
点击浏览该文件:atw.rar

帮忙看下吧不行

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2013/4/26 10:29:00 [显示全部帖子]

以下是引用Bin在2013-4-26 10:22:00的发言：
原因找到了.你这样循环行的话他会把低层的行锁定.你必须使用同样的方式解锁.

如果你想使用你代码中的方式解锁那么要使用相同的方式锁定每一列,或者全表锁定.DataTables("生产进度表").AllowEdit=false

DataTables("生产进度表").AllowEdit=false

这个写在哪里当前表的 afterload里面没用

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2013/4/26 10:42:00 [显示全部帖子]

以下是引用Bin在2013-4-26 10:31:00的发言：

写在你原来的代码哪里啊.替代你原来循环锁定列的代码就好了啊.刚我帮你查找错误的时候还反复测试来着一切正常啊.

DataTables("生产进度表").AllowEdit = False 生效

If User.Group = "开发部" Then     不生效
    With DataTables("生产进度表")
        .DataCols("零件号").AllowEdit = True
        .DataCols("零件名称").AllowEdit = True
        .DataCols("规格").AllowEdit = True
        .DataCols("材质").AllowEdit = True
        .DataCols("单位数量").AllowEdit = True
        .DataCols("备注").AllowEdit = True
        .DataCols("生产数量").AllowEdit = True
    End With
End If

你刚才测试可以？我刚刚试了下表是被锁定了，但是需要编辑的列还是不能编辑的