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

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

共有2071人关注过本帖树形打印复制链接主题：动态添加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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

For Each p As String In DataTables("总库").GetValues("区域")
tpb.Pages.Add(p, p, p & ".ico")
Next

文道古月

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

加好友

发短信

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

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

原来这么简洁，，

原来可以这样用，，

原来我都没这样想过，，

谢，老师了！！

文道古月

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

加好友

发短信

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

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

老师好，帮我看看这个代码什么问题？

'动态添加页面任务

Dim pn As String '定义一个字符串,存放页面名称的变量

Dim tl1 As WinForm.TopicLink '定义一个任务栏任务控件类型

Dim pnm As WinForm.TopicBar = e.Form.Controls("账本TopicBar1") '定义任务栏页面类型

pn = pnm.Pages().Name '获取页面标题,

pn2 = pnm.Pages().Links() '获取任务名称

tl1.Name = DataTables("总库").GetComboListString("类别","责任区域 like '%" & pn & "% '") '任务的名称=表中,类别列,条件是,类别对应的责任区域列中,包含页面标题

此主题相关图片如下：截图20151208141930.png

[此贴子已经被作者于2015/12/8 14:22:31编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

Dim pnm As WinForm.TopicBar = e.Form.Controls("账本TopicBar1") '定义任务栏页面类型

For Each p As String In DataTables("总库").GetValues("区域")
    pnm.Pages.Add(p, p, p & ".ico")
    For Each lb As String In DataTables("总库").getValues("类别","责任区域 like '%" & p & "% '") '任务的名称=表中,类别列,条件是,类别对应的责任区域列中,包含页面标题
        pnm.pages(p).Links.Add(lb, lb)
    Next
Next

文道古月

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

加好友

发短信

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

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

老师，FOX打不开

这个提示是什么意思呢，？

打开fox出现的

---------------------------

foxtable.exe - .NET Framework Initialization Error

---------------------------

Unable to find a version of the runtime to run this application.

---------------------------

确定

---------------------------

[此贴子已经被作者于2015/12/8 17:47:59编辑过]

文道古月

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

加好友

发短信

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

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

代码执行到0，后面出错了，请问是什么原因呢

Dim page As WinForm.TopicPage

tpb.Pages.Add("B004", "B004", "B004.ico").Collapsed = False

For Each b2 As String In DataTables("总库").GetValues("类别")

MessageBox.show(0)

Dim lnk As WinForm.TopicLink = page.Links.Add(b2,b2,"b004.ico")

MessageBox.show(1)

Dim cnt As Integer = DataTables("总库").Compute("SUM([数量])", "类别 = '" & b2 & "'")

MessageBox.show(cnt)

lnk.Text = lnk.Text & " " & "(" & cnt & ")" & "pcs" & " "

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

Dim page As WinForm.TopicPage = tpb.Pages.Add("B004", "B004", "B004.ico")
page.Collapsed = False
For Each b2 As String In DataTables("总库").GetValues("类别")
    MessageBox.show(0)
    Dim lnk As WinForm.TopicLink = page.Links.Add(b2,b2,"b004.ico")
    MessageBox.show(1)
    Dim cnt As Integer = DataTables("总库").Compute("SUM([数量])", "类别 = '" & b2 & "'")
    MessageBox.show(cnt)
    lnk.Text = lnk.Text & " " & "(" & cnt & ")" & "pcs" & " "
Next

文道古月

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

加好友

发短信

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

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

哈，已经琢磨出来了，

不过，还是谢谢老师的回答

老师，帮我看看像这样写行不行，会不会有问题（测试没问题）

Dim page As WinForm.TopicPage '页面控件

page = tpb.Pages.Add("B004", "B004", "B004.ico")

page.Collapsed = False

For Each b2 As String In DataTables("总库").GetValues("类别")

Dim lnk As WinForm.TopicLink = Page.links.Add(b2, b2, b2 & ".ico")

Dim sm As Integer = DataTables("总库").Compute("sum(数量)","类别 ='" & b2 & "'")

lnk.Text = lnk.Text & " " & sm & " " & "pcs"

下一主题 >> << 上一主题

主题：动态添加TopicBar页面