主题：按钮窗口打开关闭 循环代码

 If e.Sender.Text = "打开" Then
    e.sender.Text = "关闭"   
    Tables("五金原料库").Cols("设计稿").OpenWindow()  
Else If e.Sender.Text = "关闭" Then
    e.sender.Text = "打开"       
    Tables("五金原料库").Cols("设计稿").OpenWindow()   
End If