主题：求按钮循环代码

按钮文本初始为"显示真值"

If e.Sender.Text = "显示真值" Then
    e.Sender.Text = "显示全部"
    Tables("表A").Filter = "逻辑列 = True"
Else
    e.Sender.Text = "显示真值"
    Tables("表A").Filter = ""
    Tables("表A").Sort = "逻辑列"
End If