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

请问这代码应该如何应用到窗口文件中。

为了更好的体现我将原项目文件上传，请查阅后给予帮助。

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

点击浏览该文件:管理项目1.table