p = DataTables("流转车间").GetValues("流转车间","工单号= '" & Tables("计划总表_订单明细").Current("工单号") & "'")
改成
p = DataTables("流转车间").GetValues("流转车间","工单号= '" & Tables("计划总表_订单明细").Current("工单号") & "'","_Sortkey")