主题：用菜单命令修改和删除行，如何进行不同用户的权限设置？

1、设置表A的CurrentChanged事件代码为：
if Forms("窗口名").Opened() Then
   if e.Row("业务员") <> User.Name Then
         Forms("窗口名").Controls("textbox1").ReadOnly =BooleanEnum.True
         Forms("窗口名").Controls("dingdanhao").ReadOnly =BooleanEnum.True
         Forms("窗口名").Controls("textbox3").ReadOnly =BooleanEnum.True
         Forms("窗口名").Controls("textbox4").ReadOnly =BooleanEnum.True
         Forms("窗口名").Controls("textbox5").ReadOnly =BooleanEnum.True
  Else
         Forms("窗口名").Controls("textbox1").ReadOnly =BooleanEnum.False
         Forms("窗口名").Controls("dingdanhao").ReadOnly =BooleanEnum.false
         Forms("窗口名").Controls("textbox3").ReadOnly =BooleanEnum.false
         Forms("窗口名").Controls("textbox4").ReadOnly =BooleanEnum.false
         Forms("窗口名").Controls("textbox5").ReadOnly =BooleanEnum.false
end if
Forms("窗口名").Controls("删除按钮").enabled = e.Row("业务员") = User.Name
 
2、设置窗口的AfterLoad事件:
 
Tables("表A").RaiseCurrentChanged()

笔误，请将代码中的e.Row改为e.Table.Current