用菜单命令修改和删除行，如何进行不同用户的权限设置？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想要达到的目的：被业务员A 编辑过的订单（可编辑状态），其它业务员不能通过窗口按钮命令更改或删除。

窗口中“删除订单”命令代码如下：

If Tables("订单").Rows("业务员") <> User.Name Then ---- 如果现在正在编辑的业务员，不是之前创建这个订单的业务员----（保存提示错误，但我不知道如何修改）

e.Form.Controls("textbox1").ReadOnly =BooleanEnum.True ---- 全部控件设为只读----

e.Form.Controls("dingdanhao").ReadOnly =BooleanEnum.True

e.Form.Controls("textbox3").ReadOnly =BooleanEnum.True

e.Form.Controls("textbox4").ReadOnly =BooleanEnum.True

e.Form.Controls("textbox5").ReadOnly =BooleanEnum.True

end If

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

试了，不过似乎不行....
图片点击可在新窗口打开查看

此主题相关图片如下：11.jpg

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

嗯嗯，谢谢！！！

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