以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78595)
--  作者：blsu33
--  发布时间：2015/12/12 12:37:00
--  [求助]统计
老师，
  统计一下页面的数量，怎么写？

Dim idx As Integer
Dim pgs As WinForm.TabPage=e.Form.Controls("TAB_AS003会计科目").TabPage
idx=pgs.count
--  作者：blsu33
--  发布时间：2015/12/12 13:02:00
--  

另外 遍历

For Each pgs As TabPage In e.Form.Controls("TAB_AS003会计科目")
pgs.Visible=False
Next

也有错
--  作者：Hyphen
--  发布时间：2015/12/12 13:38:00
--  
http://www.foxtable.com/help/topics/0830.htm

For Each pgs As TabPage In e.Form.Controls("TAB_AS003会计科目").TabPages
pgs.Visible=False 
Next
--  作者：blsu33
--  发布时间：2015/12/12 14:29:00
--  
统计一下页面的数量，怎么写？

Dim idx As Integer
Dim pgs As WinForm.TabPage=e.Form.Controls("TAB_AS003会计科目").TabPage
idx=pgs.count
--  作者：Hyphen
--  发布时间：2015/12/12 14:38:00
--  
看3楼帮助
--  作者：blsu33
--  发布时间：2015/12/12 14:39:00
--  
看了之后 发的帖子 不明白啊
--  作者：Hyphen
--  发布时间：2015/12/12 14:53:00
--  

Delete

删除指定名称或位置的页面。

语法

Delete(Name)

或

Delete(Index)

Name： 要删除页面的名称
Index：要删除页面的位置

Clear

清除所有页面。

Count

返回总的页面数



e.Form.Controls("TAB_AS003会计科目").TabPages.Count