Foxtable(狐表)用户栏目专家坐堂 → else语句的问题


  共有1617人关注过本帖树形打印复制链接

主题:else语句的问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
else语句的问题  发帖心情 Post By:2017/4/11 17:51:00 [只看该作者]

老师,下面代码写在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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


 回到顶部