关于一对多报表动态数据实现的问题

SELECT pz,yg FROM hz ORDER BY pz INTO CURSOR t1
SELECT * FROM mx  INTO CURSOR t2  ORDER BY pz
SELECT t2
SET ORDER TO TAG pz
SELECT t1
SET RELATION TO pz INTO t2 IN t1

WITH this
.InitialSelectedAlias="t1"
.AddObject("cursor1","cursor")
.cursor1.cursorsource="T1"

.AddObject("cursor2","cursor")
.cursor2.cursorsource="T2"
.AddObject("RELATION1","RELATION")
.relation1.childorder=pz
.relation1.onetomany=.t.
.relation1.relationalexpr=pz
ENDWITH

Create Cursor t2 (pz c(40),hw c(40))
INSERT INTO t2(pz,hw) SELECT pz,hw FROM mx
SELECT pz,yg FROM hz ORDER BY pz INTO CURSOR t1

SELECT t2
Index On pz Tag PZ2
SELECT t1
SET RELATION TO pz INTO t2 IN t1



WITH this
.InitialSelectedAlias="t1"
.AddObject("cursor1","cursor")
.cursor1.cursorsource="T1"

.AddObject("cursor2","cursor")
.cursor2.cursorsource="T2"

.AddObject("RELATION1","RELATION")
.relation1.childorder="pz2"
.relation1.onetomany=.t.
.relation1.relationalexpr="pz"
ENDWITH