- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：一个表汇总完了，怎么增加统计下一个表中的数字到这个表的后半部分，代码怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26025)
-- 发布时间：2012/11/22 13:35: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
这是前半部分出生的统计，帮忙写下后边的衔接，谢谢
-- 发布时间：2012/11/22 14:11:00
--
看不到图片……不知道后面是什么。
-- 发布时间：2012/11/22 14:19:00
--
-- 发布时间：2012/11/22 14:21:00
--
此主题相关图片如下：001.gif
-- 发布时间：2012/11/22 14:56:00
--
此主题相关图片如下：11.jpg
此主题相关图片如下：12.jpg
-- 发布时间：2012/11/22 15:17: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) & "\'"
r("出生_总数") = DataTables("出生").Compute("Count(_Identify)", filter)
r("出生_政策内_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策内\' And 子女孩次 = 1 And 子女出生日期 <= #2011-12-31#")
r("出生_政策内_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策内\' And 子女孩次 = 2 And 子女出生日期 <= #2011-12-31#")
r("出生_政策内_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策内\' And 子女孩次 > 2 And 子女出生日期 <= #2011-12-31#")
r("出生_政策外_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策外\' And 子女孩次 = 1 And 子女出生日期 <= #2011-12-31#")
r("出生_政策外_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策外\' And 子女孩次 = 2 And 子女出生日期 <= #2011-12-31#")
r("出生_政策外_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策外\' And 子女孩次 > 2 And 子女出生日期 <= #2011-12-31#")
r("................总数") = DaTaTables("手术").Compute("Count(_Identify)", filter & " And 手术日期 <= #2011-12-31#")
Next
End Select
-- 发布时间：2012/11/22 17:26:00
--
r("元月份以来节育手术人数_绝育") = DataTables("手术").Compute("Count(_Identify)", filter & " And 手术类型 = \'男性绝育术\' And 手术类型 = \'女性绝育术\'")，这个代码怎么修改成既统计男性绝育术又统计女性绝育术，就是两个都统计，现在统计错了
-- 发布时间：2012/11/22 17:39:00
--
r("元月份以来节育手术人数_绝育") = DataTables("手术").Compute("Count(_Identify)", filter & " And (手术类型 = \'男性绝育术\' or 手术类型 = \'女性绝育术\')")
-- 发布时间：2012/11/22 17:48:00
--
经过老师的指点，成功了，非常感谢，还有一点是怎么增加一行合计，把每列数字合计在一行出来
-- 发布时间：2012/11/22 19:35:00
--
代码写在Next后面
dim nr as row = MainTable.AddNew
nr("XXX") = MaintTalbe.Compute("Sum(XXX)")
nr("XXX") = MaintTalbe.Compute("Sum(XXX)")
nr("XXX") = MaintTalbe.Compute("Sum(XXX)")