专家坐堂-if else endifFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  if else endif  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106183)

--  作者：huhu
--  发布时间：2017/9/4 10:56:00
--  if else endif

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

--  作者：有点甜
--  发布时间：2017/9/4 11:05:00
--
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
            case 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