以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  else语句的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99043)
--  作者：douglas738888
--  发布时间：2017/4/11 17:51:00
--  else语句的问题

老师，下面代码写在CURRENTCHANGED里面，当前行数量大于1时，LABEL背景颜色按条件显示了，

 

但是，当表中无数据，行数量为0时，LABEL的背景颜色不会变化，是哪里的问题

 

Dim Int As Integer = DataTables("监控_Table18").Compute("Count(信息编号)")  \'20170411
Dim lbl As WinForm.Label = Forms("监控").Controls("Label34")
   If Int >= 1 Then
       lbl.BackColor = Color.SlateBlue
   Else
       lbl.BackColor = Color.Gray
End If
--  作者：有点色
--  发布时间：2017/4/11 17:54:00
--  

 是不是没有触发currentChanged事件？

 

 你打开窗口的时候应该设置一下的，窗口的AfterLoad事件也写代码

 

Dim Int As Integer = DataTables("监控_Table18").Compute("Count(信息编号)")  \'20170411
Dim lbl As WinForm.Label = Forms("监控").Controls("Label34")
   If Int >= 1 Then
       lbl.BackColor = Color.SlateBlue
   Else
       lbl.BackColor = Color.Gray
End If