主题：[求助]关联报表打印

本人信息和配偶信息关联，配偶信息和儿子信息关联，配偶信息和女儿信息关联，目前打印效果如图，这里儿子信息和女儿信息是垂直的，我想放在同一水平上以节约空间，如何做到？

此主题相关图片如下：111.jpg

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:宗谱.xls

案例传不上

 

此主题相关图片如下：22.jpg

这样的效果了，女儿信息没有读到。

 

为什么我传不上案例，说请正确选择要上传的文件，我已经压缩成rar包了啊。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:家谱信息管理系统.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:宗谱.xls

专业报表试过了，排版很难排，而且每个单元格的长款都要设置成实际大小。

这是目前用专业报表实现的大概情况，女儿和儿子信息还没有办法读取：

 

此主题相关图片如下：33.jpg

    Rows = Tables("本人信息").Rows(i).DataRow.GetChildRows("女儿信息")

 

我想取得这样的子数据，该用什么函数呢，这句没有效果，好像只能父子，不能爷孙吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:家谱信息管理系统.foxdb

 

窗口名字是：窗口1，就是一打开系统右边停靠的那个打印。

版主，还有一问，怎么打印页面格式设置成A4横向的呢？

版主，我看了看，有几个地方还想请教下，在beforebuild里面：           

 For j As Integer = r.GetChildRows("儿子信息").count + 1 To r.GetChildRows("女儿信息").count
                Dim dr As DataRow = DataTables("儿子信息").AddNew
                dr("生母序号") = r("配偶序号")
 Next

为什么给儿子信息表增加行，这个代码的用意，是不是为了取得关联女儿数据行？

 

afterbuild中：

If e.Book.TempLate = "宗谱" Then
    DataTables("儿子信息").DeleteFor("名字 is null")
End If

报表建立之后把儿子信息中名字列空白的删除，按照这样的条件删，会不会多删除数据？

 

当女儿只有一个时，会打出三个重复的：

 

此主题相关图片如下：11.jpg

版主，谢谢你的耐心回答!