以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  CurrentChanged事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144739)
--  作者：禾成
--  发布时间：2019/12/28 11:52:00
--  CurrentChanged事件

CurrentChanged事件


If e.Table.Current Is Nothing Then \'如果Current为Nothing
    StatusBar.Message1 = "" 
Else

Dim Val As String = e.Table.Current("程序说明")
    If Val = "精光" Then
        StatusBar.Message1 = "请注意打刀摆!" 
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下：tim截图20191228115056.png
图片点击可在新窗口打开查看

请教一下我这段代码怎么不起作用？
--  作者：有点蓝
--  发布时间：2019/12/28 12:04:00
--  
改为StatusBar.Message2，或者StatusBar.DefaultMessage