主题：[原创]请老师帮我写下if then 的代码，谢谢

那你自己手动调整好排序就行了啊.  狐表会默认记录排序的.

不能按表中单位顺序生成显示吗，怎么才能实现

按照自己设定的循序排序,只能是人工调整行顺序,你可以通过手动调整或者代码调整.或者增加行的时候按照你需要的顺序增加行.

能不能在最后统计完，增加代码实现 按表中的单位顺序显示出来吗

要不你就增加一个排序列,后面再增加一个排序表,设置单位排序.

不会就上个例子吧.

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表中的单位一个一个出来