--------以下是定义用工性质栏-----------------------
Dim yg As WinForm.TopicPage = fll.Pages("盟市")
yg.Links.Clear
For Each ygxz As String In DataTables("词典").GetComboListString("名称","分类 = '盟市'","_identify").Split("|")
Dim kg As String = new String(" ",24 - ygxz.Length*2) '定义前面的对齐空格
Dim rs As String = DataTables("小班调查表").Compute("count(_identify)","盟市 = '" & ygxz & "'") '定义统计的数量 只能用string 不能用 Integer,因为整数型不能统计长度
Dim kg2 As String = new String(" ",3- rs.Length) '定义人数括号数字间的空格
yg.Links.Add(ygxz,ygxz & kg & "(" & kg2 & rs & "条)") '合成标题
Next
'-------以上是定义用工性质栏-------------------------
End If
此主题相关图片如下:qq图片20190623164956.png