NOTE 区位码生成程序
CREATE CURSOR T (S N(2))
FOR I=1 TO 94
    INSERT INTO T VALUES (I)
ENDFOR
SELECT PADL(A.S,2,[0])+PADL(B.S,2,[0]) AS QWM,CHR(160+A.S)+CHR(160+B.S) HZ,;
TRANSFORM(ASC(CHR(160+A.S)+CHR(160+B.S))) NASC FROM T A INNER JOIN T B ON A.S<=B.S OR A.S>B.S