以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  分类栏刷新问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136879)
--  作者：白国栋
--  发布时间：2019/6/23 16:58:00
--  分类栏刷新问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理系统.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  & "条)")    \'合成标题
Next
\'-------以上是定义用工性质栏-------------------------

End If

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190623164956.png
图片点击可在新窗口打开查看
--  作者：白国栋
--  发布时间：2019/6/23 17:01:00
--  
还有一个是我是想统计分旗区的上报面积总数，不是几条记录。高手请指点，谢谢！！！
--  作者：有点甜
--  发布时间：2019/6/23 18:18:00
--  

\'--------以下是定义部门栏-----------------------
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
\'-------以上是定义部门栏-------------------------
--  作者：白国栋
--  发布时间：2019/6/24 6:21:00
--  
不能定义两个分类栏吗？？请指教
--  作者：白国栋
--  发布时间：2019/6/24 6:22:00
--  
\'--------以下是定义旗县区栏-----------------------
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 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  & "亩)")    \'合成标题
Next
\'-------以上是定义用工性质栏-------------------------
--  作者：有点甜
--  发布时间：2019/6/24 10:01:00
--  

\'--------以下是定义旗县区栏-----------------------
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 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 m As Double = DataTables("小班调查表").Compute("sum(上报面积)","盟市 = \'" & msfl & "\'")   \'定义统计盟市的数量
    ms.Links.Add(msfl,msfl &"(" & m  & "亩)")    \'合成标题
Next
\'-------以上是定义用工性质栏-------------------------