以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在Excel报表中如何设置将数据分多栏打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135060)
--  作者：dzy1232016
--  发布时间：2019/5/16 7:56:00
--  在Excel报表中如何设置将数据分多栏打印
在Excel报表中如何设置将数据分多栏打印：
如下原始数据  姓名 时间
                   张三  20
                   李四   15
                  王五    17
  
打印效果如下
               姓名   时间    姓名  时间
               张三   20      王五   17
               李四    15
我这样设置了报表但第二栏合计不能实现
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:考试报表.xls

[此贴子已经被作者于2019/5/16 9:14:50编辑过]
--  作者：有点甜
--  发布时间：2019/5/16 8:31:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1414.htm

 
--  作者：dzy1232016
--  发布时间：2019/5/16 8:38:00
--  在Excel报表中如何设置将数据分多栏打印
这个方法两栏打印的数据是一样的我要第二栏接着第一栏打印
--  作者：有点甜
--  发布时间：2019/5/16 11:11:00
--  
以下是引用dzy1232016在2019/5/16 8:38:00的发言：
这个方法两栏打印的数据是一样的我要第二栏接着第一栏打印

 

认认真真看2楼的帮助文档。看完测试过再说。
--  作者：有点甜
--  发布时间：2019/5/16 11:12:00
--  
如果你需要先打完第一栏，再打第二栏这种。那你就加入多个标签，比如 第一栏加入10个标签，第二栏也加入10个标签。
--  作者：dzy1232016
--  发布时间：2019/5/16 15:25:00
--  
明白了再问一下，如果想表的最后一个数据增加一个合计项，（不是增加到页脚，）如何设置
--  作者：有点甜
--  发布时间：2019/5/16 15:39:00
--  
以下是引用dzy1232016在2019/5/16 15:25:00的发言：
明白了再问一下，如果想表的最后一个数据增加一个合计项，（不是增加到页脚，）如何设置

 

在你的foxtable表格那里，增加一行合计的数值，然后打印即可。最后删除增加的那行数据。
--  作者：dzy1232016
--  发布时间：2019/5/20 11:53:00
--  
所有的代码在版主的无私帮助下终于完成了
复制在这儿仅供参考
Dim  tb As new DataTableBuilder("临时表")
tb.AddDef("姓名",Gettype(String),20)
tb.adddef("时间",Gettype(Integer))
tb.AddDef("阅卷",Gettype(Integer))
tb.Build()
Dim dt As DataTable = DataTables("临时表")
Dim dr As DataRow
For Each r1 As Row In Tables("考试").Rows
    For Each c As Col In Tables("考试").Cols
        Dim name As String = r1(c.Name)
        If name.Length<=6 Then 
        dr = dt.Find("姓名=\'" & name & "\'")
        If dr Is Nothing Then
            dr = dt.AddNew()
            dr("姓名") = name
        End If
           Dim r As  Row=Tables("考试").Rows(0)
           Dim str As String 
           str=System.Text.RegularExpressions.Regex.Replace(r(c.Name), "[^0-9:\\-:]", "")
           Dim d1 As Date = str.split("-")(0)
           Dim d2 As Date = str.split("-")(1)
           Dim sp As TimeSpan = d2-d1
           dr("时间") =dr("时间")+sp.TotalMinutes/6
           dr("阅卷")=30
         End If
    Next
Next
DataTables("临时表").DeleteFor("姓名 is null")
 dr=dt.AddNew
 dr("姓名")="合计"
 dr("时间")=DataTables("临时表").Compute("sum(时间)")
 dr("阅卷")=DataTables("临时表").Compute("sum(阅卷)")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\考试报表.xls")
Dim fl As String = ProjectPath & "Reports\\考试报表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()