For Each dr As DataRow In DataTables("设计部个人业绩计划表列显设置表").Select("显示=TRUE", "_Sortkey")
改成
For Each dr As DataRow In DataTables("设计部个人业绩计划表列显设置表").Select("显示=TRUE", "_Identify")