标题：[求助]任务栏代码完善

Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")

Dim v As WinForm.TopicPage = fll.Pages("执业范围")

v.Links.Clear

For Each vv As String In DataTables("项目字典").GetComboListString("名称", "类别 = '执业范围'", "_identify").Split("|")

Dim kg As String = New String(" ", 26 - vv.Length * 2) '定义前面的对齐空格

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:任务栏窗口.zip

Dim rs As String = DataTables("基础信息").Compute("count(_identify)", "','+执业范围+',' like '%," & vv & ",%'") '定义统计的数量 只能用string  不能用 Integer,因为整数型不能统计长度

Dim kg2 As String = New String(" ", 3 - rs.Length) '定义人数括号数字间的空格

    v.Links.Add(vv, vv & kg & "(" & kg2 & rs & "人)") '合成标题

Next