以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口菜单图标问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128170)
--  作者：ZJZK2018
--  发布时间：2018/11/30 12:18:00
--  窗口菜单图标问题
下面代码红色部分出错了： 
       Dim st As String = CurrentTable.Cols(CurrentTable.ColSel).Name
        For Each sit As WinForm.StripItem In e.Form.Strips("主菜单").Items("窗口设置").Items
            If sit.Name = "sort" Then
                Static i As Integer = 0 \'定义静态变量i
                If i = 0 Then
                    CurrentTable.Sort = st & " DESC"
                    sit.text = "降序排序"
                    sit.Image = "sort32.ico"
                    i = 1
                Else
                    CurrentTable.Sort = st
                    sit.text = "升序排序"
                    i = 0
                End If
            End If
        Next
--  作者：有点甜
--  发布时间：2018/11/30 12:26:00
--  

 

sit.Image = getimage("sort32.ico")