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

琢磨了好久，在红袍老师的帮助下，改了改一些代码（主要还是红袍老师的帮助）

请老师帮忙看看

下面这段代码有没问题，可否合并或者简洁一点？

''B004总库视图页面定义

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 sm As Integer = DataTables("总库").Compute("sum([数量])","类别 ='" & b2 & "'") '对符合任务名称的类别求和,并保存值在sm中(赋值下一行代码中任务的标题中)

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

''其他页面的动态添加

For Each p As String In DataTables("总库").GetValues("责任区域") '取某一列的不重复值,作为动态添加TopicBar页面的名称

tpb.Pages.Add(p, p, p & ".ico").Collapsed = True '调用变量tpb的增加页面方法,名称,标题,图片,都=页面名称,

'根据页面,动态添加任务

For Each b1 As String In DataTables("总库").GetValues("类别","责任区域 like '" & p & " '") '任务的名称=表中,类别列,条件是,类别对应的责任区域列中,包含页面标题

Dim sm As Integer = DataTables("总库").Compute("sum([数量])","类别 ='" & b1 & "'") '对符合任务名称的类别求和,并保存值在sm中(赋值下一行代码中任务的标题中)

tpb.pages(p).Links.Add(b1, b1 & " " & sm & " " & "pcs", b1 & ".ico") '调用变量tpb的页面集合,通过返回的页面名称或标题,调用其增加任务的属性,设置任务标题,名称=上面遍历的集合

[此贴子已经被作者于2015/12/9 8:54:27编辑过]

主题：Topicbar动态添加代码求教