主题：关于窗口CANEDIT的分用户识别

试试：

For Each s As String In "Button1|Button3|Button4|Button5|Button6|Button7|Button8|Button9|Button10|Button11|DateTimePicker1|DateTimePicker2|DateTimePicker3|TextBox1|TextBox2|TextBox3".Split("|")
    e.Form.Controls(s).Enabled = False
Next
For Each s As String In "Button1|Button3|Button4|Button5|TextBox4".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "区域主管")
Next

For Each s As String In "Button6|Button7|DateTimePicker2|TextBox5".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")
Next

For Each s As String In "Button8|Button9|DateTimePicker3|TextBox6".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")
Next

For Each s As String In "Button10|Button11|DateTimePicker1|TextBox2".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "boss")
Next

权限控制，千变万化。

要做到既轻松，又严密，很难。

反正用代码，这么细致的控制，一是累人，二是缺少灵活性。