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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按钮ENABLED与否决定于某列的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74175)

--  作者：fred
--  发布时间：2015/9/5 15:03:00
--  [求助]按钮ENABLED与否决定于某列的值
有一个窗体，窗体中有一个按钮叫“公示”。
有一个表SelfInquiry，表中有一个字段叫“询价状态”，它的自定义值为“草拟”和“已公示”。
目的：当表中询价状态的值为“已公示”时，窗体中的“公示”按钮则为灰色的不可CLICK。

窗体的AfterLoad

If Tables("SelfInquiry").Current("询价状态")= "已公示" AndAlso Tables("SelfInquiry").Current("询价状态")<> Nothing Then
e.Form.Controls("公示").Enabled = False
End If

结果是，无论什么情况，“公示按钮”都是灰色。
请教，问题出在哪里呢？

--  作者：Hyphen
--  发布时间：2015/9/5 15:19:00
--

If Tables("SelfInquiry").Current("询价状态")= "已公示" AndAlso Tables("SelfInquiry").Current("询价状态")<> Nothing Then
e.Form.Controls("公示").Enabled = False
else
e.Form.Controls("公示").Enabled = True
End If

--  作者：大红袍
--  发布时间：2015/9/6 9:50:00
--

CurrentChanged事件

If Forms("窗口1").Opened Then
    If Tables("SelfInquiry").Current("询价状态")= "已公示" AndAlso Tables("SelfInquiry").Current("询价状态")<> Nothing Then
        Forms("窗口1").Controls("公示").Enabled = False
    Else
        Forms("窗口1").Controls("公示").Enabled = True
    End If
End If