Foxtable(狐表)用户栏目专家坐堂 → [求助]关联报表打印


  共有4540人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/6 16:12:00 [显示全部帖子]

 不能这样子写,excel模板不能实现,你需要结合代码和事件去操控。建议,还是用代码导出excel 或者 代码生成专业报表比较实惠。

 

 http://www.foxtable.com/help/topics/1953.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/6 16:31:00 [显示全部帖子]

 回复8楼,排版的问题,就慢慢调试,因为内容也不多。

 

 女儿和儿子的信息是肯定可以读取得到,只是简单的查询而已。

 

 如果读不到数据,你上传一个例子看看。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/6 17:11:00 [显示全部帖子]

以下是引用云淡风轻在2014-5-6 16:48:00的发言:
版主,还有一问,怎么打印页面格式设置成A4横向的呢?

 

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

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:家谱信息管理系统.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/7 9:30:00 [显示全部帖子]

 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

 


 回到顶部