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
*

给楼主提个建议，记录在表中的物理顺序无关紧要，需要的时候用select语句提取出记录集来并可以随意排序。

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

没有表，没办法为你提供合理的建议。

不用这么麻烦吧

upda psk set xh=recn()

....
APPEND FROM SYS(5) - '\gzgl\dbf\psk.dbf'
REPLACE XH WITH (RECNO())
....

REPLACE XH WITH (RECNO()) &&&这语句 只影响一条记录
应是 REPLACE ALL  XH WITH (RECNO())
或改成 如 6 楼 的

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

要举一凡三，触类傍通