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

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

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

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

主题：动态添加TopicBar页面