希望思路能帮助您，涉及角色和权限设置判断能不能编写那一控件，好像不需要流程，我是菜鸟希望您早日解决。
Dim dr As DataRow ....表和窗口控件数据一致
Dim qjr As String = e.Form.Controls("请假人").Value
dr = DataTables("员工请假").Find("[请假人] = '" & qjr & "' ")
If dr IsNot Nothing Then
e.Form.Controls("TextBox2").Value = dr("请假天数")
e.Form.Controls("ComboBox1").Value = dr("请假原因")
....
End If
If dr("人事经理审批") = True Then ...通过人事的审批的不允许在编辑
e.Form.Controls("人事经理审批备注").Enabled = False
e.Form.Controls("备注").Enabled = False
Else
e.Form.Controls("人事经理审批备注").Enabled = True
e.Form.Controls("备注").Enabled = False
End If
else If dr("总经理审批") = True Then ...通过总经理的审批的不允编辑
e.Form.Controls("总经理审批备注").Enabled = False
e.Form.Controls("人事经理审批备注").Enabled = False
e.Form.Controls("备注").Enabled = False
Else
e.Form.Controls("人事经理审批备注").Enabled = True
e.Form.Controls("备注").Enabled = True
End If
加好友 
发短信
Post By：2015/2/27 17:24:00 [显示全部帖子]
