| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关联表锁定 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94280) |
| -- 作者：紫色幽魂 -- 发布时间：2016/12/20 15:41:00 -- [求助]关联表锁定 请教下关联表锁定的问题 我在LoadUserSetting事件中加入以下代码为什么只有质量部的账户登录能锁定关联表，而第二个账户登录就不能锁定了，或者只用无损的账户设置，把另一个删除了也不能锁定 If User.Name = "总厂质量部" OrElse User.Name = "无损检测" Then If DataTables.Contains("构件清单.检测项目") Then DataTables("构件清单.检测项目").AllowEdit = False End If End If [此贴子已经被作者于2016/12/20 17:47:47编辑过]
|
| -- 作者：有点色 -- 发布时间：2016/12/20 15:44:00 -- 加上代码，看弹出什么
msgbox(user.name & vbcrlf & "无损检测") |
| -- 作者：紫色幽魂 -- 发布时间：2016/12/20 17:51:00 -- If User.Name = "总厂质量部" OrElse User.Name = "无损检测" Then If DataTables.Contains("构件清单.检测项目") Then DataTables("构件清单.检测项目").AllowEdit = False msgbox(user.name & vbcrlf & "无损检测") End If End If 没有任何提示和弹窗
|
| -- 作者：有点色 -- 发布时间：2016/12/20 17:54:00 -- 2楼代码，写在第一行。 |
| -- 作者：紫色幽魂 -- 发布时间：2016/12/20 18:15:00 -- msgbox(user.name & vbcrlf & "无损检测") If User.Name = "总厂质量部" OrElse User.Name = "无损检测" Then If DataTables.Contains("构件清单.检测项目") Then DataTables("构件清单.检测项目").AllowEdit = False End If End If 出现一个弹窗，2个无损检测上下排 |
| -- 作者：有点色 -- 发布时间：2016/12/20 18:24:00 -- If User.Name = "总厂质量部" OrElse User.Name = "无损检测" Then
If Tables.Contains("构件清单.检测项目") Then
Tables("构件清单.检测项目").AllowEdit = False
End If
End If
[此贴子已经被作者于2016/12/20 18:24:01编辑过]
|
| -- 作者：紫色幽魂 -- 发布时间：2016/12/20 20:40:00 -- 可以了，问下为什么datatable可以执行那个质量部的账户设置而另一个就不执行了呢，去掉质量部只保留一个也不行呢 |
| -- 作者：有点蓝 -- 发布时间：2016/12/20 22:01:00 -- 关联表没有datatable，只有table |
| -- 作者：紫色幽魂 -- 发布时间：2016/12/20 23:03:00 -- 好的，谢谢 |