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

等等，这样出来的统计单位就会按照这个顺序生成了，请老师帮忙下，就这一段代码，谢谢                    

         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

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

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 & "'"

从出生3表中得到有单位，就是生成表时单位按拼音排了，没有按出生3表中的单位一个一个出来