Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求生成出生统计报表的代码？


  共有8922人关注过本帖树形打印复制链接

主题：求生成出生统计报表的代码？
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/11/22 9:44:00 [显示全部帖子]

 很简单的统计，楼主可以参考一下帮助文档，弄一下。

http://www.foxtable.com/help/topics/0681.htm
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/11/22 10:03:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生成出生表.table
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/11/22 10:23:00 [显示全部帖子]

以下是引用lrh9537在2012-11-22 10:11:00的发言：
组这一列怎么从1组至15组按顺利排列

不能按照你这个顺序排列的，默认只能按照拼音去排列。除非你在前面加一个数字。
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/11/22 10:26:00 [显示全部帖子]

以下是引用lrh9537在2012-11-22 10:12:00的发言：
怎么统计2011年12月底的出生报表，增加一个按村，按组，按年，按月的可以选择的生成模式

楼主可以根据不同的条件去统计的，先看看帮助文档 数据统计 一章。

http://www.foxtable.com/help/topics/00143.htm
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/11/22 10:31:00 [显示全部帖子]

以下是引用lrh9537在2012-11-22 10:28:00的发言：
没有排列一组，二组，三组的功能吗，只能排列1组.2组.3组吗

是的，除非你改成例如 1一组，2二组，加一个标识，不然就只能按照拼音来排了。
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/11/22 10:43:00 [显示全部帖子]

 子女孩子 后面缺少操作数

 你的子女孩次列是什么类型的？还有你的条件怎么写了？
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/11/22 11:24:00 [显示全部帖子]

 首先，你的子女孩次改成整数类型，然后，你的子女出生日期改成日期时间类型。

 然后编写代码

Select Case MainTable.Name
    Case "出生表"
        MainTable.DataTable.DataRows.Clear
        Dim arys As List(Of String()) = DataTables("出生").GetUniqueValues("", "单位名称", "组名称")
        For Each ary As String() In arys         
            Dim r As Row = MainTable.AddNew
            r("单位") = ary(0)
            r("组名称") = ary(1)
            Dim filter As String = "单位名称 = '" & ary(0) & "' And 组名称 = '" & ary(1) & "' And 子女出生日期 <= #2011-12-31#"
            r("出生_总数") = DataTables("出生").Compute("Count(_Identify)", filter)
            r("出生_政策内_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 = 1")
            r("出生_政策内_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 = 2")
            r("出生_政策内_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 > 2 ")
            r("出生_政策外_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 = 1")
            r("出生_政策外_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 = 2")
            r("出生_政策外_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 > 2")
        Next
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询