** mztolo 2007 - vfp8
** kode2 = kode upline-nya
** asumsi table terpisah-pisah, asumsi kode tdk memakai sistem spt accounting :)
SET TALK OFF
CLEAR
CLOSE ALL

CREATE CURSOR mlm_1 (kode c(10), kode2 c(10), nama c(10), nilai n(10) )
CREATE CURSOR mlm_2 (kode c(10), kode2 c(10), nama c(10), nilai n(10) )
CREATE CURSOR mlm_3 (kode c(10), kode2 c(10), nama c(10), nilai n(10) )
CREATE CURSOR mlm_4 (kode c(10), kode2 c(10), nama c(10), nilai n(10) )

INSERT INTO mlm_1 (kode, kode2, nama, nilai) VALUES ('001','001','Tolo',100)
INSERT INTO mlm_1 (kode, kode2, nama, nilai) VALUES ('002','002','Tini',110)
INSERT INTO mlm_1 (kode, kode2, nama, nilai) VALUES ('003','003','Toni',125)

INSERT INTO mlm_2 (kode, kode2, nama, nilai) VALUES ('201','001','Budi',60)
INSERT INTO mlm_2 (kode, kode2, nama, nilai) VALUES ('202','001','Bambang',55)
INSERT INTO mlm_2 (kode, kode2, nama, nilai) VALUES ('203','002','Bolu JCo',25)
INSERT INTO mlm_2 (kode, kode2, nama, nilai) VALUES ('204','003','Bruce lee',15)

INSERT INTO mlm_3 (kode, kode2, nama, nilai) VALUES ('301','201','Cinta',10)
INSERT INTO mlm_3 (kode, kode2, nama, nilai) VALUES ('302','201','Cici',5)

INSERT INTO mlm_4 (kode, kode2, nama, nilai) VALUES ('401','302','Demid',2)
INSERT INTO mlm_4 (kode, kode2, nama, nilai) VALUES ('402','302','Dukun',3)

i=1
STORE '' TO x,y,j
FOR i=1 TO 4 && 4 asumsi jml table
	z=STR(i,1)
	IF i=1
		x=[select kode,kode2,kode2 kode3, nama,nilai from mlm_&z into curs a&z ]
	ELSE
		j=STR(i-1,1)
		x=[select a&j..kode,mlm_&z..kode kode2,mlm_&z..kode2 kode3,mlm_&z..nama,mlm_&z..nilai ;
		from a&j,mlm_&z where a&j..kode2=mlm_&z..kode2 into curs a&z ]
	ENDIF
	
	&x

	y=y+[select * from a&z ]
	IF i=4
		y=y+[ into curs abc ]
	ELSE
	    y=y+[ union ]
	ENDIF
ENDFOR

&y && dijalankan secara macro :)

SELECT kode group1,kode3 goup2,kode2 kode,nama,nilai from abc ORDER BY kode,kode2,kode3 INTO CURSOR cHasil
BROWSE

FOR i=1 TO 4
	z=STR(i,1)
	EXECSCRIPT("USE IN SELECT('mlm_&z' )"+CHR(13)+"USE IN SELECT('a&z' )" )
ENDFOR
USE IN SELECT('abc' )
USE IN SELECT('cHasil' )