主题：[求助]窗口表不能显示背景颜色？

设置这个表的CurrentChanged事件：
 
If Forms("窗口名称").Opened Then
   if e.Table.Current("某列") > 0 Then
     Forms("窗口名称").Controls("Textbox1").BackColor = Color.Green
   else
      Forms("窗口名称").Controls("Textbox1").BackColor = Color.Red
   End if
End if

If Forms("窗口名称").Opened Then

     Dim nms() AS String = {"Textbox1"，"Textbox2"，"Textbox6"}

     For Each nm As string in nms Then

        Dim v As Double = Forms("窗口名称").Controls(nm).Value

        If v > 0 Then

               Forms("窗口名称").Controls(nm).BackColor = Color.Green

        Else
                Forms("窗口名称").Controls(nm).BackColor = Color.Red

        End if
     Next
End if

If Forms("窗口名称").Opened Then
     Dim nms() AS String = {"Textbox1"，"Textbox2"，"Textbox6"}
     For Each nm As string in nms
        Dim v As Double = Forms("窗口名称").Controls(nm).Value
        If v > 0 Then
               Forms("窗口名称").Controls(nm).BackColor = Color.Green
        Else
               Forms("窗口名称").Controls(nm).BackColor = Color.Red
        End if
     Next
End if

1、TextBox5什么时候是红色，什么时候是绿色，规则是什么？

2、你的TextBox5没有绑定到任何字段，他的值永远不变，而你的代码是根据他的值来设置颜色，所以他的颜色自然也就永远不变。

 

其实这样的问题，做个简单例子发上来后，说清楚过则和需求，可能几分钟就解决了。

1、你可以将字体颜色设置成北京颜色，这样就看不到数值了。

2、代码优化的问题，多看几次帮助吧，反复看，反复练，所有示例都操作一遍，不懂就问。

呵呵，字体颜色也可以动态设置的啊，例如你设置背景颜色为绿色，那么就同样设置字体颜色为绿色。

表A是哪个表？ 表B是哪个表？ 表A如何根据表B的数据亮灯？ 也就是规则是什么？

 

我无法理解你的问题，颜色明明在改变啊？

你只说亮灯失效，不做任何说明，别人看到的是颜色在改变，不知道你什么意思的。

所以提问最好能具体点，能比人明白，例如什么表的什么窗口的什么控件，需要动态改变颜色，改变颜色的规则是什么？ 你在哪里设置了代码，遇到了问题，例如选择某行，根据规则，颜色应该是什么，结果颜色却是什么。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:倒数实例.table

留意项目立项2的CurrentChanged事件,以及窗口的AfterLoad事件，后者很重要。