If Forms("BUG测试查询系统").Opened Then
Dim rr As Row = Tables("BUG录入表").Current
If rr("提交人邮箱") = user.name Then
Select Case rr("状态")
Case "已更新","已解决","未解决"
Forms("BUG测试查询系统").Controls("已解决").Enabled =True
Forms("BUG测试查询系统").Controls("未解决").Enabled =True
Else
Forms("BUG测试查询系统").Controls("已解决").Enabled =False
Forms("BUG测试查询系统").Controls("未解决").Enabled =False
End Select
Else
Forms("BUG测试查询系统").Controls("已解决").Enabled =False
Forms("BUG测试查询系统").Controls("未解决").Enabled =False
End If
If rr.isnull("附件目录") Then
Forms("BUG测试查询系统").Controls("附件下载界面").Enabled =False
Else
Forms("BUG测试查询系统").Controls("附件下载界面").Enabled =True
End If
If user.IsRole("测试switch") Or user.IsRole("测试IEswitch") Or user.IsRole("测试pon") Or user.IsRole("测试route") Or user.IsRole("测试部经理") Then
e.Form.Controls("另指高人").Enabled = True
e.Form.Controls("请选择高人").Enabled = True
Else
e.Form.Controls("另指高人").Enabled = False
e.Form.Controls("请选择高人").Enabled = False
End If
End If
此主题相关图片如下：1111.jpg
加好友 
发短信
Post By：2017/9/4 10:56:00 [显示全部帖子]
