[求助]状态值与按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If Forms("form").Opened Then
    Select Case Tables("表A").current("状态")
        Case "草拟"
            Forms("form").Controls("Button1").Enabled = False
            Forms("form").Controls("Button2").Enabled = True
            Forms("form").Controls("Button3").Enabled = True
        Case "已通过"
            Forms("form").Controls("Button1").Enabled = True
            Forms("form").Controls("Button2").Enabled = False
            Forms("form").Controls("Button3").Enabled = True
        Case "已打印"
            Forms("form").Controls("Button1").Enabled = True
            Forms("form").Controls("Button2").Enabled = True
            Forms("form").Controls("Button3").Enabled = True
    End Select
End If

主题：[求助]状态值与按钮