专家坐堂-数据的自动流转之二如何将用户更换为用户组进行操作呢？比如录入组操作第一列第二列审核组操作第三列第四列财务组负责第五列第六列Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

3、然后在项目事件LoadUserSetting中设置代码，加载由登录用户负责处理的行，并设置本流程开始标记：

\'加载登录用户负责处理的行
Dim Filter As String
Dim bj As String
Select Case User.Name ’是否是直接将更换为user.Group
    Case "张三" ‘
        Filter = "进度 Is Null Or 进度 = \'1A\'" \'进度为空或进度一开始
        bj = "1A"
    Case "李四" ’ “录入组 ”
        Filter = "进度 = \'1B\' Or 进度 = \'2A\'" \'进度一结束或进度二开始
        bj = "2A"
    Case "王五" ‘ “审核组”
        Filter = "进 = \'2B\' Or 进度 = \'3A\'" \'进度二结束或进度三开始
        bj = "3A"
    Case "赵六" ’ “财务组  ”
        Filter = "进度 = \'3B\' Or 进度 = \'4A\'" \'进度三结束或进度四开始
        bj = "4A"
    Case Else
        Filter = "" \'其他用户加载全部记录
End Select

将窗口的AfterLoad事件代码设置为：

e.Form.Controls("第一列").Enabled = (User.Name = "张三") 是否是直接将更换为（user.Group ="录入组"）

e.Form.Controls("第二列").Enabled = (User.Name = "张三") 是否是直接将更换为（user.Group ="录入组"）

e.Form.Controls("第三列").Enabled = (User.Name = "李四") 是否是直接将更换为（user.Group ="审核组"）

e.Form.Controls("第四列").Enabled = (User.Name = "李四") 是否是直接将更换为（user.Group ="审核组"）

e.Form.Controls("第五列").Enabled = (User.Name = "王五") 是否是直接将更换为（user.Group ="财务组"）

e.Form.Controls("第六列").Enabled = (User.Name = "王五") 是否是直接将更换为（user.Group ="财务组"）