主题：else语句的问题

 是不是没有触发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