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

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

 

如下，直接用excel打印处理，代码写在excel报表事件里面。

 

 

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

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

版主，我看了看，有几个地方还想请教下，在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

 excel报表，是要变通处理一下的，不然不能。

 

 1、新增行，是为了儿子的个数>=女儿的个数；

 

 2、最后删除行，不会影响其他数据，名字为空的数据是应该删除的。

 

 3、重复问题，改一下代码

 

static idx As Integer = 0
If e.Book.TempLate = "宗谱" Then
    If e.Region = "儿子信息" Then
        Dim drs As List(Of DataRow) = e.DataRow.GetParentRow("配偶信息").GetChildRows("女儿信息")
        If idx < drs.Count Then
            Dim dr As DataRow = drs(idx)
            e.Book.Marks("女名字") = dr("名字")
            e.Book.Marks("嫁何处") = dr("嫁何处")
            e.Book.Marks("丈夫姓名") = dr("丈夫姓名")
            idx += 1
        Else
            e.Book.Marks("女名字") = ""
            e.Book.Marks("嫁何处") = ""
            e.Book.Marks("丈夫姓名") = ""
        End If
    Else If e.Region = "配偶信息" Then
        idx = 0
    End If
End If

 

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