Foxtable(狐表)用户栏目专家坐堂 → 请教excel报表关联表的细节区定义


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

主题:请教excel报表关联表的细节区定义

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


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
请教excel报表关联表的细节区定义  发帖心情 Post By:2012/9/17 20:20:00 [显示全部帖子]

A(父表)-B(子表),excel报表需要定义子表两个细节区,

 

<表A>

<表B>

<表B>

<表A>

 

这种形式是否正确?

 

 


图片点击可在新窗口打开查看此主题相关图片如下:snap009.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-9-17 20:23:06编辑过]

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


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
  发帖心情 Post By:2012/9/18 10:50:00 [显示全部帖子]

请老师给看看

 


图片点击可在新窗口打开查看此主题相关图片如下:snap003.png
图片点击可在新窗口打开查看

 

难道是一个关联表只能有一个细节区?

 

 例子:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.rar

[此贴子已经被作者于2012-9-18 11:42:00编辑过]

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


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
  发帖心情 Post By:2012/9/18 11:43:00 [显示全部帖子]

以下是引用lin_hailun在2012-9-18 11:24:00的发言:
 楼主,你这种需求用模板是实现不了的。

 只能通过写代码完成。上传个例子帮你弄一下。

 参考这个 http://www.foxtable.com/help/topics/1955.htm

啊,太好了,谢谢!我看看先!!

例子在3楼!

[此贴子已经被作者于2012-9-18 11:44:30编辑过]

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


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
  发帖心情 Post By:2012/9/18 12:50:00 [显示全部帖子]

好的,谢谢 lin_hailun !  问题解决了。

[此贴子已经被作者于2012-9-18 13:07:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wjl-se
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
  发帖心情 Post By:2012/9/18 16:07:00 [显示全部帖子]

以下是引用lin_hailun在2012-9-18 12:09:00的发言:
代码在报表事件里,修改了模板。注意看。

 
 下载信息  [文件大小:196.5 KB  下载次数:3]
图片点击可在新窗口打开查看点击浏览该文件:test_01.zip


 

不好意思,我又回来了,代码似乎有点问题,结果是错乱的.我改成下面这样,还是错乱的。不知何故。。。

 

Select Case e.Book.TempLate
    Case "经销商调查表"
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("附属信息")
        Dim i As Integer = 1
        Dim max As Integer = drs.Count
        For Each dr As DataRow In drs
            If i > max OrElse i > 3 Then
                Exit For
            End If
            e.Book.Marks("授权品牌" & i) = dr("授权品牌")
            e.Book.Marks("改装厂" & i) = dr("改装厂")
            i = i + 1
        Next
End Select

 


 回到顶部
帅哥哟,离线,有人找我吗?
wjl-se
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
  发帖心情 Post By:2012/9/19 10:04:00 [显示全部帖子]

呵呵,楼上果然正解!再次感谢!!你学的真扎实……佩服啊!

 回到顶部