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

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

表的PrepareEdit事件代码：

If e.Row("逻辑") = True AndAlso User.Group <> "管理员" Then
    e.Cancel = True
End If

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

Enter事件

 

If Tables("表A").current("第一列") = True Then
    e.sender.ReadOnly = BooleanEnum.True '不允许编辑
Else
    e.sender.ReadOnly = BooleanEnum.False '允许编辑
End If

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

 

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()

同样加上判断咯

 

if 有权限

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

endif