Foxtable(狐表)用户栏目专家坐堂 → [求助]统计


  共有2192人关注过本帖树形打印复制链接

主题:[求助]统计

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]统计  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/12/12 13:02:00 [只看该作者]


另外 遍历

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

也有错

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/12 14:38:00 [只看该作者]

看3楼帮助

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/12/12 14:39:00 [只看该作者]

看了之后 发的帖子 不明白啊

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/12 14:53:00 [只看该作者]

Delete

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

语法

Delete(Name)

Delete(Index)

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

Clear

清除所有页面。

Count

返回总的页面数



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



 回到顶部