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

大家好，我通过drawcell实现了用红色背景标出数字小于0的单元格，用绿色背景标出了数字大于0的单元格，但当我通过窗口中的textbox插件绑定到该单元格使其在窗口中显示时，发现背景颜色不见了，请问这正常吗？

 

如果正常，那我想在窗口中实现数值大于零的时候亮绿灯，小于零的时候亮红灯，请问该采用何种插件，代码如何编写？

大家帮帮忙~

正常的.单元格事件和窗口控件不是一回事.

 

Dim Val As Double =  Forms("控件控制").Controls("Textbox1").Value
If Val < 0 Then
    Forms("控件控制").Controls("Textbox1").BackColor = Color.Red
ElseIf Val > 0 Then
    Forms("控件控制").Controls("Textbox1").BackColor = Color.Green
End If

设置这个表的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

谢谢你提供的代码，我想问一下，Val要怎么和我表中的数据联系起来，因为要判断它和0 的关系，那怎么把表中的值赋给它呢？？

狐爸，看您的代码里引用的是某列，我的情况是同一列的不同单元格数据是不同的，请问怎么具体到每个单元格，代码要做何修改？

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

此主题相关图片如下：问题11.bmp

狐爸，提示出现问题……

 

晚上我做个实例发给您，您帮我看看实现下吧~先谢了

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、打开时窗口默认到第一行，颜色显示为绿色。此时单机别的行颜色无变化

2、双击任意一行，弹出窗口，此时亮灯颜色无（为白色），再双击表中其他任意行，均显示为绿色……

 

狐爸我做了个小例子发上来，麻烦您有时间的时候帮我改改~谢谢了（今晚没空明天也可，嘿嘿）

 

此外，还有个小请求，我在表事件的DataColChanged命令下的代码虽然成功运行，但各段相互之间无联系，只是弱弱的孤立写入，麻烦您帮忙简化一下~多谢多谢~

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

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