标题：求窗口权限代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产流程管理_1224.zip |
帮助中找不到例子，求窗口权限代码：
1：窗口中的文本柜如果是空的就可写，有值就不可写（指定管理员才能修改）。
2：窗口中的表如果新增行，或当前行被修改，没有按确认就不能选择其它行与表或退出（要提示确认）。
允许此表可以编辑。
'PrepareEdit事件
If User.Name <> "管理员" Then
If e.Row.IsNull(e.col.name) = False Then
e.Cancel = True
End If
End If
If User.Name <> "管理员" Then
If e.Row.IsNull(e.col.name) = False Then
e.Cancel = True
End If
End If
这个代码只在主表起作用，对窗口文本柜不起作用呀！
2：窗口中的表如果接新增行或当前行被修改，没有按确认（保存）就不能选择其它行与表或退出（要提示确认）。
这个代码怎么写了（是在窗口事件中）？
文本框：TextBox 和 数值勤框：NumericComboBox 不起作用呀
窗口的全局事件Enter 有写了这个，现在的问题是如何让文本框：TextBox 和 数值勤框：NumericComboBox 在以有数值的情况下也禁止编辑
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "生产流程表.生产_交货数量", "生产流程表.生产_日期", "生产流程表.生产_挡车工"
If User.Group = "生产车间" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
Case "生产流程表.品检_成品数量", "生产流程表.品检_日期", "生产流程表.品检_检验员"
If User.Group = "品检车间" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select
这样才不会被工人保存过后更改数值。
刚找到这个代码，就是少了个提示：当前记录未保存！
With Tables("织机生产")
If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
Tables("织机生产").AddNew()
End If
End With