表事件里:
If e.DataRow.Locked = True Then If User.name <> "开发者" AndAlso UserName <> "管理员" AndAlso UserName <> "郑回珠" AndAlso UserName <> "刘光美" Then Messagebox.show("如需解锁行请找经理或者郑主管!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) e.Cancel = True End If Else e.DataRow.Locked = False End If
在开发版上,开发者/管理员/郑回珠/刘光美都可以解锁已锁定行,发布后在独立的EXE上升级完成后却不行