SELECT BZ
 REPLACE D1415 WITH (D14 - D15)
 COUNT TO A1
 COPY TO ARRAY M FIELDS D1415
 SELECT GZDA
 SET FILTER TO
 REPLACE D1415 WITH (D14 - D15)
 REPLACE XH1 WITH '99' FOR XH1 = ' '
 GO TOP
 I = 0
 J = 0
 DO WHILE I < A1
    I = I + 1
    REPLACE XH WITH I FOR D1415 = M(I)
    LOCATE FOR D1415 = M(I)
    IF  .NOT. FOUND()
       J = J + 1
    ENDIF
    REPLACE YM WITH I - J FOR D1415 = M(I)
 ENDDO
 SORT ON D107 , XH , XH1 , D43A /d , D43 /d , D48 /d , D45 /d TO  ;
         SYS(5) - '\gzgl\dbf\psk.dbf'
 ZAP
 APPEND FROM SYS(5) - '\gzgl\dbf\psk.dbf'
 REPLACE XH WITH (RECNO())
 GO TOP
 YN =  ;
      MESSAGEBOX('表gzda.dbf中的数据已按“班组”的先后顺序成功完成排序！',64,'提示！')
 RETURN
*

谢谢版主，我也是刚接手，这是以前的代码，以前可以，不知道现在为什么不能排序了

问题已解决，谢谢几位朋友！