Foxtable(狐表)用户栏目专家坐堂 → 汇总统计问题


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

主题:汇总统计问题

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/5 8:42:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/5 9:12:00 [显示全部帖子]

没有区别,既然知道那就改为平时会使用的动态用法。帮助仅仅是帮助,帮助不是条条框框

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.GroupOn = "房间号"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "房间号 = '" & r("房间号") & "'"
        Dim v As String = ""
        For Each pm As String In DataTables("表A").GetValues("品名",f)
            v = v & "," &  pm & " :" & t.Compute("sum(数量)",f & " and 品名='" & pm & "'")
        Next
        r("房间号") = f & v
    End If
Next

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/5 9:16:00 [显示全部帖子]

这个不是专业不专业的问题,是解决问题的思维、思路。代码都是死的,脑子是活的....
[此贴子已经被作者于2019/12/5 9:16:04编辑过]

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/5 11:46:00 [显示全部帖子]

For Each pd As String In pds '分产品打印
    For Each dr As DataRow In drs '逐行打印此产品的订单
        cnt = rt.Rows.Count


            For c As Integer = 0 To tbl.Cols.Count - 1
                rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
            Next
    Next
    cnt = rt.Rows.Count

加统计代码?在这里加即可?方法参考上面的用法
Next


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/5 13:38:00 [显示全部帖子]

写了什么代码,贴出来

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/5 14:42:00 [显示全部帖子]

建议先完整学习一些专业报表。没看懂原来的代码到底要干嘛,如果要原表输出

Dim doc  As New PrintDoc
Doc.PageSetting.Width=210
Doc.PageSetting.topMargin = 0 '设置左边距
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
'Doc.PrinterName=Vars("dyj")
Dim rt As New Prt.RenderTable
Dim rx As prt.RenderText

Dim cnt As  Integer = 1
Dim tbl As Table =  Tables("表A")
'Dim drs As  List(Of DataRow)
'Dim pds As  List(Of String) = tbl.DataTable.GetValues("房间号")
rt.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.black)
'rt.CellStyle.Spacing.All = 1
rt.Style.Font = tbl.Font
For c As Integer = 0 To tbl.Cols.Count - 1  '生成列标题
    rt.Cells(0,c).Text = tbl.Cols(c).Name
    rt.Cols(c).Width = tbl.Cols(c).PrintWidth
    rt.Style.TextAlignVert = prt.AlignHorzEnum.Center
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
Next
Dim r As Row
For i As Integer = 0 To tbl.Rows.Count(True) - 1
    r = tbl.Rows(i,True)
    If r.IsGroup Then
        rt.Cells(i+1,0).SpanCols = 3
        rt.Cells(i+1, 0).Text  = r("房间号")
        rt.Cells(i+1, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
    Else
        For c As Integer = 0 To tbl.Cols.Count - 1
            rt.Cells(i+1, c).Text = r(tbl.Cols(c).Name)
        Next
    End If
Next

Doc.Body.Children.Add(rt)
Doc.Preview

 回到顶部