- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]请老师帮我写下if then 的代码，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39014)
-- 发布时间：2013/8/13 17:02:00
-- [原创]请老师帮我写下if then 的代码，谢谢
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
此主题相关图片如下：11.jpg
-- 发布时间：2013/8/13 17:07:00
--
在帮助里搜索 select case
-- 发布时间：2013/8/13 17:08:00
--
指导下
-- 发布时间：2013/8/13 17:08:00
--
http://www.foxtable.com/help/topics/0224.htm
-- 发布时间：2013/8/13 17:09:00
--
按我的简单写下，谢谢
-- 发布时间：2013/8/13 17:13:00
--
select case r("单位")
case "后河居委会"
case "王楼村委会"
case "丁庄委会"
case "山头高委会"
end select
-- 发布时间：2013/8/13 17:18:00
--
我试试，谢谢
-- 发布时间：2013/8/13 17:20:00
--
生成报表单位顺序还是拼音顺序，没有按个顺序显示出来
-- 发布时间：2013/8/13 17:21:00
--
你是想排序? 排序请使用 tables("XX").sort="独生子女领证人数"
-- 发布时间：2013/8/13 17:22:00
--
按单位排序，单位不按拼音，按设定的