使用上有什么问题?不要问代码是不是对的,这玩意没有绝对的对错,放到A场合也许是对的,放到B场合就不对了.下面修改后的代码并不是说1楼的就是错的,只是效率的差别而已,或者有些不必要的操作。
加工件台账_PrepareEdit
If user.name = e.Row("录入员") OrElse User.Name = "管理员" OrElse User.Name = "开发者" Then
Else
e.cancel = True
End If
加工件台账_StartEdit
If user.name = "采购部" Then
If e.Col.name = "供应商" OrElse e.Col.name = "采购反馈" Then
Else
e.cancel = True
End If
End If
If user.name = "库管员" Then
If e.Col.name <> "到货数量"
e.cancel = True
End If
End If
加工件台账_BeforeAddDataRow
If User.Name = "游客" Then
e.Cancel = True
MessageBox.Show("您是游客,只能看哦.", "提示")
ElseIf User.Name = "采购部" Then
e.Cancel = True
MessageBox.Show("您无此权限,请于管理员联系.", "提示")
End If
加工件台账_DataRowAdding
e.DataRow("录入员") = User.name
加工件台账_BeforeDeleteDataRow
If User.Name <> "管理员" = True Then
MessageBox.Show("只有管理员才能删除,需要删除请在备注栏标注", "提示")
e.Cancel = True
End If
加工件台账_DoubleClick--这个事件代码去掉,没有必要