老师好!现有窗口主菜单项下排序按钮如下图:
此主题相关图片如下:微信截图_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
麻烦老师帮忙给予解决,谢谢!