有表有2字段 kcdm 和 BZ1
KCDM 有值 如
001
001
001
002
002
003
BZ1 空的 要变成
001


002

003
这样 怎么弄

select 表
REPLACE ALL bz1 WITH kcdm
kcdm_bak=''
GO top
SCAN
    IF allt(bz1)==allt(kcdm_bak)
        REPLACE bz1 WITH ''
    ELSE
        kcdm_bak=kcdm
    ENDIF
ENDSCAN

SELECT TABNAME
KCDM1=[]
SCAN
   REPLACE BZ WITH IIF(ALLTRIM(KCDM)==KCDM1,[],ALLTRIM(KCDM))
   KCDM1=ALLTRIM(KCDM)
ENDSCAN
BROWSE