Foxtable(狐表)用户栏目专家坐堂 → EXCEL报表关联表分组打印


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

主题:EXCEL报表关联表分组打印

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


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

这个意思?

 

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


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


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

buildDetail事件,写代码

 

Select Case e.Book.TempLate
    Case "订单表"
        If e.Region = "订单主表" Then
            Vars.Add("第N页",Gettype(String))
            vars("第几页") = 1
            vars("第N页") = "第" & vars("第几页") & "页"
            Dim drs = e.DataRow.GetChildRows("订单明细表")
            Dim phs As new Dictionary(of String, Integer)
            For Each dr As DataRow In drs
                If phs.ContainsKey(dr("品名")) Then
                    phs(dr("品名")) += 1
                Else
                    phs.Add(dr("品名"), 1)
                End If
            Next
            Dim sum As Integer = 0
            For Each key As String In phs.Keys
                sum += math.Ceiling(phs(key) / 9)
            Next
            vars("总页数") = "共" & sum & "页"
            e.Book.Marks("页次") = vars("第N页") & "/" & vars("总页数")
        End If
End Select


 回到顶部