Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码


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

主题：[求助]代码
帅哥哟，离线，有人找我吗？
苏州老街
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		[求助]代码  发帖心情 Post By：2017/1/12 14:23:00 [显示全部帖子]

老师，下面代码好像不起作用。

If User.IsRole("录入") =False Then '如果审批人列不为空
    e.Cancel = True '则禁止编辑
End If
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/12 15:22:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：图像 2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：图像 3.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/1/12 15:22:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/12 15:26:00 [显示全部帖子]

老师，我在用户角色中不选"录入"在窗口文本框中还是可以编辑的。

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


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/12 16:38:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：图像 4.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/12 17:03:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：图像 2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/12 19:19:00 [显示全部帖子]

老师，用户角色“录入”被引用到出库主表中后代码不起作用。同时授权表不知怎样操作。老师，这些都是论坛上搬来的，不好意思啊。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/14 7:10:00 [显示全部帖子]

老师，通过授权表设置后出库窗口的按钮隐藏不了，在其他项目中是可以的。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:授权表.rar


[此贴子已经被作者于2017/1/14 7:25:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/14 10:06:00 [显示全部帖子]

老师，不知怎样设置，谢谢，辛苦你了周末还要麻烦你。

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


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/14 11:23:00 [显示全部帖子]

老师，已经在该事件AfterLoad最后面了，就是按钮不隐藏（变色）

For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'and  窗口名 = '" & e.Form.Name & "'")
e.Form.Controls(dr("按钮名")).Visible = not dr("不可见")
e.Form.Controls(dr("按钮名")).Enabled = not dr("不可编辑")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/1/14 12:26:00 [显示全部帖子]

老师，没有用。

 回到顶部
总数 17 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.03906 秒, 7 次数据查询