【资料图】

USE 2023信息 ALIAS b2023SELECT DISTINCT bmddm FROM b2023 INTO ARRAY arr_bmddmSELECT DISTINCT xkkmzhdm FROM b2023 ORDER BY xkkmzhdm INTO ARRAY arr_xkkmzhdmcmd = "CREATE CURSOR tt (xkkmzhdm c(8),zong I"FOR i=1 TO ALEN(arr_bmddm) cmd = cmd "," "_" arr_bmddm[i] " I"ENDFORcmd = cmd ")"EXECSCRIPT(cmd)APPEND FROM ARRAY arr_xkkmzhdmINDEX on xkkmzhdm TAG xkkmzhdmSELECT b2023SET RELATION TO xkkmzhdm INTO "tt"SCAN REPLACE tt.zong WITH tt.zong 1, ("tt._" b2023.bmddm) WITH EVALUATE("tt._" b2023.bmddm) 1ENDSCANSELECT * FROM tt