诚心求教,请予帮助。
回复 9楼 王咸美
SET SAFETY OFFUSE 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