- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么修改成统计镇级数据？统计一个村的所有数据，村级表里显示组，镇级表里只显示每个村，怎么修改？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26057)
-- 发布时间：2012/11/23 11:16:00
-- 怎么修改成统计镇级数据？统计一个村的所有数据，村级表里显示组，镇级表里只显示每个村，怎么修改？
此主题相关图片如下：111.jpg
此主题相关图片如下：1222.jpg
Select Case MainTable.Name
Case "村级2011年10月一览表"
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) & "\'"
r("出生_总数") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女出生日期 >= #2011-01-01# And 子女出生日期 <= #2011-10-31#" )
怎么修改成统计镇级数据？统计一个村的所有数据，村级表里显示组，镇级表里只显示每个村，怎么修改？
-- 发布时间：2012/11/23 11:36:00
--
用例子说话，将数据表和统计表格式设计好，数据表保留少量数据，将文件发上来，再说明问题。
-- 发布时间：2012/11/23 12:10:00
-- Microsoft Jet 数据库引擎找不到对象''出生情况查询''怎么回事？
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 #2011-01-01#<= 子女出生日期 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
帮忙修改下开头，生成镇级表，统计所有村的数据，谢谢
-- 发布时间：2012/11/23 14:36:00
--
Ok，楼主多看帮助学习一下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成出生表.table |
-- 发布时间：2012/11/23 14:55:00
--
非常感谢，学习