主题：数据的自动流转之二 如何将用户更换为用户组进行操作呢？比如录入组 操作第一列 第二列 审核组 操作第三列 第四列 财务组 负责第五列 第六列

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 ="财务组"）