For Each dr1 As DataRow In DataTables("西裤尺码表").DataRows
改成
For Each dr1 As DataRow In DataTables("西裤尺码表").select("", "_Sortkey")