Dim t As Table = Tables("出生率统计表")
t.DataTable.DataRows.Clear
Dim arys As List(Of String) = DataTables("出生3").GetUniqueValues("", "单位名称")
For Each ary As String In arys
Dim r As Row = t.AddNew
r("单位") = ary
Dim filter As String = "单位名称 = '" & ary & "'"
我想在这添加执行下面的统计
if 单位=后河居委会 then else
if 单位=王楼村委会 then else
if 单位=丁庄委会 then else
if 单位=山头高委会 then else
等等,这样出来的统计单位就会按照这个顺序生成了,请老师帮忙下,就这一段代码,谢谢
r("总出生_男") = DataTables("出生3").Compute("Count(_Identify)", filter & " And 子女性别 = '男' And 子女出生日期 >= #2012-07-01# And 子女出生日期 <= #2013-07-31#" )
r("总出生_女") = DataTables("出生3").Compute("Count(_Identify)", filter & " And 子女性别 = '女' And 子女出生日期 >= #2012-07-01# And 子女出生日期 <= #2013-07-31#" )
r("总出生_总数") = DataTables("出生3").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女出生日期 >= #2012-07-01# And 子女出生日期 <= #2013-07-31#" )
Next
Dim nr As Row = t.AddNew
nr("单位") = "合计"
For i As Integer = 1 To t.Cols.Count - 1
nr(t.Cols(i).Name) = t.Compute("Sum(" & t.Cols(i).Name & ")")
Next
![dvubb](skins/default/filetype/jpg.gif)
此主题相关图片如下:11.jpg