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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 修改数据权限的问题

共有2211人关注过本帖树形打印复制链接主题：修改数据权限的问题

lungby

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

加好友

发短信

等级：幼狐帖子：97 积分：839 威望：0 精华：0 注册：2018/3/1 9:46:00

修改数据权限的问题 发帖心情

Post By：2018/5/8 17:38:00 [只看该作者]

有两个表，一个表是“委托台账”，有委托编号，和检测员两列，检测员是2个人名

一个表是“工作日志”，有委托编号列，和检测员两列，委托编号列为手输入的，但是该表的检测员是固定的一个人，增加新行后直接写入登录者的用户名

现在希望在“工作日志”表中新增行后，手输入委托编号后，如果该编号在“委托台账”中查询相应的检测员，如果该登录用户不是“委托台账”检测员列中的任何一名，则弹出对话框，告知不是你做的实验，然后清空委托编号，等待重新输入，

请问有相关的例子或者告知下代码如何写么？

谢谢……

有点甜

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

加好友

发短信

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

Post By：2018/5/8 18:55:00 [只看该作者]

首先，跨表查找数据

http://www.foxtable.com/webhelp/scr/1451.htm

然后，在validateEdit或者datacolchanging事件写代码，判断查找的数据是否包含当前用户。

lungby

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

加好友

发短信

等级：幼狐帖子：97 积分：839 威望：0 精华：0 注册：2018/3/1 9:46:00

Post By：2018/5/9 17:25:00 [只看该作者]

额，判断查找的数据是否包含当前用户。。。怎么写……

麻烦了

有点甜

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

加好友

发短信

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

Post By：2018/5/9 17:41:00 [只看该作者]

ValidateEdit事件

If e.Col.Name = "委托编号" Then
    Dim fdr As DataRow = DataTables("委托台账").Find("委托编号 = '" & e.Text & "'")
    If fdr IsNot Nothing Then
        If cstr(fdr("检测员")).Contains(User.name) = False Then
            msgbox("不能编辑此编号")
            e.Cancel = True
        End If
    End If
End If

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

主题：修改数据权限的问题