主题：[求助]窗口菜单动态开关

老师好！现有窗口主菜单项下排序按钮如下图：

 

 

此主题相关图片如下：微信截图_20200512102132.png

计划如果按钮标题是“顺序”单击鼠标时将批次按照批号顺序排序，同时将排序按钮标题改为“倒序”。

      如果按钮标题是“倒序”单击鼠标时将批次按照批号倒序排序，同时将排序按钮标题改为“顺序”。

自己编写的代码如下：

Select Case e.StripItem.Name
    Case "排序"
        If e.StripItem.Text = "顺序"
        Tables("批次").Sort = "批号"
        e.StripItem.Items("排序").text = "倒序"
    Else
        Tables("批次").Sort = "批号 DESC"
       e.StripItem.Items("排序").text = "顺序"
    End If
End  Select

 

不执行，出现错误信息如下：

 

此主题相关图片如下：微信截图_20200512102714.png

 

麻烦老师帮忙给予解决，谢谢！

Select Case e.StripItem.Name
    Case "排序"
        If e.StripItem.Text = "顺序"
        Tables("批次").Sort = "批号"
        e.StripItem.Text = "倒序"
    Else
        Tables("批次").Sort = "批号 DESC"
       e.StripItem.Text = "顺序"
    End If
End  Select

合适了，感谢蓝版！