以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于Button  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151218)
--  作者：ygg8310
--  发布时间：2020/6/18 10:36:00
--  关于Button
例如ABCD为4个逻辑列，Button1-10分别对应表的1-10行
如果 第一行 ADCD均为 false 则 Button1 颜色为red
如果 第二行 ADCD均为 false 则 Button2 颜色为red
如果 第三行 ADCD均为 false 则 Button3 颜色为red
这种代码应该怎么个写法？
--  作者：有点蓝
--  发布时间：2020/6/18 10:51:00
--  
di r as row = tables(xxx).rows(0)
if r("A") = false andalso r("B") = false andalso..... then
e.form.controls("Button1").ForeColor = color.red
end if
--  作者：ygg8310
--  发布时间：2020/6/18 11:31:00
--  
这个是写在哪个事件里面？
--  作者：有点蓝
--  发布时间：2020/6/18 12:08:00
--  
想在什么时候改按钮颜色就放在那里，比如窗口afterload
--  作者：ygg8310
--  发布时间：2020/6/18 16:20:00
--  
老师还问一下，这个有什么简单点的写法没？比如我设置了10个Button，那我得要写10个呀
--  作者：有点蓝
--  发布时间：2020/6/18 16:30:00
--  
for i as integer = 1 to 10
dim r as row = tables(xxx).rows(i)
if r("A") = false andalso r("B") = false andalso..... then
e.form.controls("Button" & i).ForeColor = color.red
end if
end if