--
Dim msj As WinForm.TopicPage = fll.Pages("盟市")
msj.Links.Clear
For Each msjfl As String In DataTables("词典").GetComboListString("名称","分类 = \'盟市\'","_identify").Split("|")
Dim kg As String = new String(" ",24 - msjfl.Length*2) \'定义前面的对齐空格
Dim msm As Double = DataTables("小班调查表").Compute("sum(上报面积)","盟市 = \'" & msjfl & "\'") \'定义统计盟市的数量
msj.Links.Add(msjfl,msjfl &"(" & msm & "亩)") \'合成标题
Next
不知道放哪里好呢?