动态添加TopicBar页面 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态添加TopicBar页面

共有2072人关注过本帖平板打印复制链接主题：动态添加TopicBar页面

文道古月

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：303 积分：2363 威望：0 精华：0 注册：2015/10/14 16:55:00

动态添加TopicBar页面 发帖心情

Post By：2015/12/8 11:25:00 [只看该作者]

老师好：

我想取某一列的不重复值，作为动态添加ToppicBar页面的名称，该怎么写代码呢？

For Each pas As String In DataTables("总库").GetValues("区域") '提取区域列不重复的值保存在数组中

Dim pas() As String = {""}

’根据数据中的值，动态添加TopicBar的页面

With tpb.Pages

.Add("W101", "W101", "W101.ico").Collapsed = False

.Add("A101", "A101", "A101.ico").Collapsed = True

.Add("B101", "B101", "B101.ico").Collapsed = True

End With

主题：动态添加TopicBar页面