| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 控件背景色赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192531) |
| -- 作者：工匠 -- 发布时间：2024/6/30 16:45:00 -- 控件背景色赋值 老师好， 请教一下，希望在选择不同的表行后，根据表行的内容，对窗口按钮的背景色进行赋值，现在只有第一次选择行后有效果，重新选择不同行后，没效果，请教一下，代码要怎么改，谢谢！ For Each dr1 As DataRow In DataTables("表B").DataRows If dr1("第二列") = "进行中" Then Forms("窗口1").Controls("Button2").BackColor = Color.blue Forms("窗口1").Controls("Button1").BackColor = Color.blue ElseIf dr1("第二列") = "异常" Then Forms("窗口1").Controls("Button2").BackColor = Color.red Forms("窗口1").Controls("Button1").BackColor = Color.red ElseIf dr1("第二列") = "完成" Then Forms("窗口1").Controls("Button2").BackColor = Color.Green Forms("窗口1").Controls("Button1").BackColor = Color.Green ElseIf dr1("第二列") = "暂停" Then Forms("窗口1").Controls("Button2").BackColor = Color.Yellow Forms("窗口1").Controls("Button1").BackColor = Color.Yellow Else If dr1("第二列") = "待开始" Then Forms("窗口1").Controls("Button2").BackColor = Color.Silver Forms("窗口1").Controls("Button1").BackColor = Color.Silver End If End If Next 谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2024/6/30 22:23:00 -- 代码放在什么事件的？ |
| -- 作者：工匠 -- 发布时间：2024/7/2 6:25:00 -- 谢谢老师，放在表事件 PositionChanged 的，后来在群里有老师帮处理了，改用Case可以了 |