诚心求教，请予帮助。

SET SAFETY OFF
USE jsrkb20180920 ALIAS jsrkb
COPY TO xk_js STRU
USE xk_js IN 0
FOR i=3 TO FCOUNT()
  cFieldName = fields(i)
  INDEX on &cFieldName TAG &cFieldName DESCENDING UNIQUE
  GO top
  j = 1
  SCAN
    tn = &cfieldName
    SELECT xk_js
    IF j > RECCOUNT()
      APPEND BLANK
    ENDIF
    GO j
    REPLACE &cFieldName WITH tn  
    j = j +1
    SELECT jsrkb
  ENDSCAN
NEXT
SELECT xk_js
BROWSE