For Each dr As DataRow In DataTables("员工信息").DataRows
改为:
For Each dr As DataRow In DataTables("员工信息").Select("",“排序列”)
参考:
http://www.foxtable.com/help/topics/0400.htm
http://www.foxtable.com/help/topics/2382.htm
Select是最常用的方法,务必掌握