主题：[原创]请老师帮我写下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

在帮助里搜索 select case

指导下

http://www.foxtable.com/help/topics/0224.htm

按我的简单写下，谢谢

select case r("单位")

  case "后河居委会"

  case "王楼村委会"

  case "丁庄委会"

  case "山头高委会"

end select

我试试，谢谢

生成报表单位顺序还是拼音顺序，没有按个顺序显示出来

你是想排序? 排序请使用 tables("XX").sort="独生子女领证人数"

按单位排序，单位不按拼音，按设定的