以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  button1按钮不可用,如何写代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132548)

--  作者:yfy13338431925
--  发布时间:2019/3/24 20:30:00
--  button1按钮不可用,如何写代码

甜老师:

窗体关联子表“表A.表B”中"“第一列”列有数据时,窗口的button1"按钮不可用,如何写代码


--  作者:有点甜
--  发布时间:2019/3/24 22:52:00
--  

建议在button1的click事件写代码处理,如

 

If tables("表A.表B").current("第一列") <> nothing then

    msgbox("不可以用")

    return

End If

 

\'后面写click原来的代码


--  作者:yfy13338431925
--  发布时间:2019/3/25 17:35:00
--  

甜老师:

 

If  Tables("表A.表B").Current.IsNull("第一列") = False  Then

e.Form.Controls("Button1").Enabled = False
  End If

 

如果表为空表,即无数据空行,运行时候报错

如果有空行则不报错

什么情况??


--  作者:有点甜
--  发布时间:2019/3/25 18:22:00
--  
If Tables("表A.表B").Current isnot nothing andalso Tables("表A.表B").Current.IsNull("第一列") = False  Then   
    e.Form.Controls("Button1").Enabled = False
End If