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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口录入数据当前行权限

共有1784人关注过本帖树形打印复制链接主题：窗口录入数据当前行权限

cd_tdh

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

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

窗口录入数据当前行权限 发帖心情

Post By：2017/3/13 16:59:00 [显示全部帖子]

老师，所有数据都是窗口录入，逻辑列为Ture时，只有管理员可以编辑，这个代码怎么写啊？

cd_tdh

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

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2017/3/13 18:16:00 [显示全部帖子]

我所有数据都是窗口录入，数据表本就是禁止编辑的，这样写不起作用。

帮助里面是这样的:

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "表A.第一列", "表A.第二列", "表A.第三列"
        If User.Name = "张三" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "表A.第四列", "表A.第五列", "表A.第六列"
        If User.Name = "李四" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

要是我列很多，代码怎么简化啊？

[此贴子已经被作者于2017/3/13 18:19:33编辑过]

cd_tdh

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

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2017/3/14 10:02:00 [显示全部帖子]

有点色老师，这样没问题了，我还有两列保存时是默认当前用户和当前时间的，即使通过窗口修改不了，但是我点了保存后，登记人和登记日期还是会修改为当前用户，保存按钮代码如下：

With Tables("报名登记表")
    If .Current IsNot Nothing Then
        .Current.Save()
    End If
End With

Dim r As Row = Tables("报名登记表").Current
r("登记人") = _UserXingMing
r("登记日期") = Date.Now

Forms("报名登记窗口").Close()

[此贴子已经被作者于2017/3/14 10:02:07编辑过]

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

主题：窗口录入数据当前行权限