- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]状态值与按钮 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74631)
-- 发布时间：2015/9/15 19:26:00
-- [求助]状态值与按钮
有一个表A，其中有一个字段是“状态”。状态值为“草拟”，“已通过”，“已打印”
有一个窗体（所有者表为表A），里面有三按钮“提交”，“通过”，“打印”。和个表框，绑定到表A
目的：在窗体中，若表A状态值为草拟时，除草拟按钮ENABLED为FALSE外，其它两个按钮为TRUE。
若表A状态值为已通过时，“提交”，“通过”按钮ENABLED 为TRUE，“打印”为FALSE
若表A状态值为已打印时，三个按钮都是TRUE。
请问窗体的AFTERLOAD事件如何写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:状态与按钮.rar |
-- 发布时间：2015/9/15 22:04:00
--
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