以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按钮窗口打开关闭 循环代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52700)
--  作者：yifan3429
--  发布时间：2014/6/20 16:36:00
--  按钮窗口打开关闭 循环代码
With Tables("五金原料库")
    .Cols("设计稿").OpenWindow()
End With

With Tables("五金原料库")
    .Cols("设计稿").CloseWindow()
End With


这个我怎么用代码把他连起来   按一下打开   按一下关闭
--  作者：有点甜
--  发布时间：2014/6/20 16:38:00
--  

 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

[此贴子已经被作者于2014-6-20 16:38:47编辑过]