程序代码：

SET SAFETY OFF 
SET ENGINEBEHAVIOR 70
CLOSE DATABASES 

CREATE TABLE ls (xm c(6)) 
SELECT 0
USE jsrkb ALIAS rk
FOR i=3 TO FCOUNT()
  SCAN 
    cfm=EVALUATE(FIELD(i))
    SELECT ls
    APPEND BLANK 
    REPLACE ls.xm WITH cfm
    SELECT rk
  ENDSCAN 
ENDFOR 
SELECT * from ls WHERE !EMPTY(xm) GROUP BY xm INTO dbf jsmd
SELECT jsmd
brow 

程序代码：

CLOSE TABLES all
USE jsrkb
CREATE CURSOR jsmdtmp (jsmc c(10))
SELECT jsrkb
FOR i=1 TO FCOUNT()
    czdmc=UPPER(FIELD(i,'jsrkb'))
    IF czdmc<>'NJ' AND czdmc<>'BJ'
        SELECT &czdmc jsmc FROM jsrkb INTO dbf jsmd
        SELECT jsmdtmp
        APPEND from jsmd
    ENDIF
ENDFOR
SELECT distinct jsmc FROM jsmdtmp INTO dbf jsmd ORDER BY jsmc  WHERE !EMPTY(jsmc)

程序代码：

CLOSE DATABASES 
CREATE CURSOR jskb (jsxm c(8))
USE jsrkb IN 0
SELECT jsrkb
SCAN 
    FOR i = 3 TO FCOUNT()
        ckc = FIELD(i)
        IF NOT EMPTY(EVALUATE("jsrkb." + ckc))
            INSERT INTO jskb VALUES (EVALUATE("jsrkb." + ckc))
        ENDIF 
    ENDFOR
ENDSCAN
SELECT DISTINCT jsxm FROM jskb