主题：分类栏刷新问题

'--------以下是定义部门栏-----------------------
Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
Dim qxq As WinForm.TopicPage = fll.Pages("旗县区")
qxq.Links.Clear

For Each qxqmc As String In DataTables("词典").GetComboListString("名称","分类 = '旗县区'","_identify").Split("|")
    Dim kg As String = new String(" ",24 - qxqmc.Length*2)   '定义前面的对齐空格
    Dim rs As Double = DataTables("小班调查表").Compute("sum(上报面积)","旗县区 = '" & qxqmc & "'")  '定义统计的数量
    qxq.Links.Add(qxqmc,qxqmc &"(" & rs  & "条)")
Next
'-------以上是定义部门栏-------------------------

'--------以下是定义旗县区栏-----------------------
Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
Dim qxq As WinForm.TopicPage = fll.Pages("旗县区")
qxq.Links.Clear

For Each msfl As String In DataTables("词典").GetComboListString("名称","分类 = '盟市'","_identify").Split("|")
    Dim kg As String = new String(" ",24 - msfl.Length*2)    '定义前面的对齐空格
    Dim m As Double = DataTables("小班调查表").Compute("sum(上报面积)","盟市 = '" & msfl & "'")   '定义统计盟市的数量
    ms.Links.Add(msfl,msfl &"(" & m  & "亩)")    '合成标题
Next
'-------以上是定义用工性质栏-------------------------