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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  分类栏刷新问题  (http://foxtable.net/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
\'-------以上是定义用工性质栏-------------------------