以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表视图切换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18312)
--  作者：bm
--  发布时间：2012/4/9 11:22:00
--  表视图切换

单击按钮。如果现在打开的是表视图1.那么打开表视图2.

如果现在打开的是表视图2.那么打开表视图1。的代码.

If Tables("表a").OpenView("表视图1") Then
   Tables("表a").OpenView("表视图2")
Else


   Tables("表a").OpenView("表视图1")
End If

那位高手帮忙改一下

 
--  作者：狐狸爸爸
--  发布时间：2012/4/9 11:25:00
--  

用一个public变量或者var变量，记录打开的视图名。

 

If  变量 = "表视图2"

   变量=  "表视图1"

Else

   变量= "表视图2"

End If

Tables("表a").OpenView(变量)

--  作者：hhbb
--  发布时间：2012/4/9 11:26:00
--  

If Tables("表a").Cols("區別列").Visible = True Then
   Tables("表a").OpenView("表视图2")
Else


   Tables("表a").OpenView("表视图1") 
End If
--  作者：bm
--  发布时间：2012/4/9 11:36:00
--  谢谢二位了
谢谢二位了