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

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

主题：if else endif