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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分类栏刷新问题

共有3197人关注过本帖树形打印复制链接主题：分类栏刷新问题

白国栋

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00

分类栏刷新问题 发帖心情

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

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

End If

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

白国栋

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00

Post By：2019/6/23 17:01:00 [只看该作者]

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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
'-------以上是定义部门栏-------------------------

白国栋

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00

Post By：2019/6/24 6:21:00 [只看该作者]

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

白国栋

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00

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

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

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

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

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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
'-------以上是定义用工性质栏-------------------------

下一主题 >> << 上一主题

主题：分类栏刷新问题