VFP多个临时表打印到一个报表中，多细节报表的秘密

加菲猫的VFP

发布于 2024-05-27 21:16:12

520

发布于 2024-05-27 21:16:12

文章被收录于专栏：加菲猫的VFP加菲猫的VFP

最近老是跟这个需求杠上了，上次是学了个半吊子，这次张终于摸清了多细节报表的秘密。

先来看一下报表

打印效果

两张临时表

秘密1：报表中的 细节1：T1 , 细节2:T2 T1,T2就是临时表名，要跟临时表挂勾的。

T1就是gzhzb1,T2就是gzhzb2

Select 1 As MyID,* Into Cursor T1 From gzhzb1
Select 1 As MyID,* Into Cursor T2 From gzhzb2

报表字段控件要带一下表名

如果直接设置完，那么你将获得一个错误了，为了这个错误，我找了一上午。

T1没有与当前工作区建立关系。

谁与谁没有关系，他们倒底什么关系？

秘密2：建立临时表的关系，有几个临时表，就要有几个关系，最后得找个爹

Create Cursor TA (MyID I)
Insert Into TA Values (1)
Select TA
Index On MyID Tag SY_MyID

Select 1 As MyID,* Into Cursor T1 From gzhzb1
Select T1
Index On MyID Tag SY_MyID

Select 1 As MyID,* Into Cursor T2 From gzhzb2
Select T2
Index On MyID Tag SY_MyID

Select TA
Set Relation To MyID Into T1
Set Relation To MyID Into T2 Additive

代码的关键

创建了一个TA 作为主表，为什么要用TA，由这个主表来与T1,T2 发生关系。为什么这样做呢。

因为细节1 用掉t1,细节2 用掉了t2

VFP报表初始进入的表行数，就决定了细节明细行数，你就会发现一堆重复。所有我们另外创建一个表做为初始表。

Set Relation to 是Ta的索引字段，切记不要搞错，我就是这里翻车了。

恩，看一下我的效果。