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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于一对多报表动态数据实现的问题

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

只看楼主

fanjinyu9108

等　级：论坛游民
帖　子：644
专家分：20
注　册：2014-1-16
结帖率：88.5%

楼主

已结贴√ 问题点数：20 回复次数：16

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

我需要数据是动态地实现一对多报表，请问如何实现，昨天搞了一夜，还是弄不出来，请大师帮忙，要在报表HZ3实现报表HZ的效果

qq.rar (8.38 KB)

[此贴子已经被作者于2021-7-13 08:21编辑过]

搜索更多相关主题的帖子: 动态　数据　报表　效果　一对多　

2021-07-13 08:00

fanjinyu9108

等　级：论坛游民
帖　子：644
专家分：20
注　册：2014-1-16

第 2 楼

得分:0

程序代码：

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

2021-07-13 08:34

fanjinyu9108

等　级：论坛游民
帖　子：644
专家分：20
注　册：2014-1-16

第 3 楼

得分:0

我在数据环境加了如上代码，还是不行

2021-07-13 08:35

fanjinyu9108

等　级：论坛游民
帖　子：644
专家分：20
注　册：2014-1-16

第 4 楼

得分:0

又换了如下代码，还是不行

程序代码：

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