主题：分类代码修改问题

For Each dr As DataRow In DataTables("国家").DataRows

改成

For Each dr As DataRow In DataTables("国家").Select("", "序号")