主题：我想设置一个排序按钮，不会写代码！

控件按钮的文本默认为“无序”

If e.Sender.Text = "无序" Then
    e.Sender.Text = "升序"
    Tables("表A").ApplySort = False   
ElseIf e.Sender.Text = "升序" Then
    e.Sender.Text = "降序"
    Tables("表A").Sort = "剩余数量 ASC"
ElseIf e.Sender.Text = "降序" Then
    e.Sender.Text = "无序"
    Tables("表A").Sort = "剩余数量 DESC"
End If