分类栏刷新问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理系统.rar

--------以下是定义用工性质栏-----------------------

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 & "条)") '合成标题

'-------以上是定义用工性质栏-------------------------

End If

此主题相关图片如下：qq图片20190623164956.png

还有一个是我是想统计分旗区的上报面积总数，不是几条记录。高手请指点，谢谢！！！

不能定义两个分类栏吗？？请指教

'--------以下是定义旗县区栏-----------------------

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 & "亩)")

'-------以上是定义旗县区栏-------------------------

'--------以下是定义盟市栏-----------------------

Dim ms As WinForm.TopicPage = fll.Pages("盟市")

ms.Links.Clear

For Each msfl As String In DataTables("词典").GetComboListString("名称","分类 = '盟市'","_identify").Split("|")

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

Dim ms As Double = DataTables("小班调查表").Compute("sum(上报面积)","盟市 = '" & msfl & "'") '定义统计盟市的数量

ms.Links.Add(msfl,msfl &"(" & ms & "亩)") '合成标题

'-------以上是定义用工性质栏-------------------------

主题：分类栏刷新问题