主题：excel报表

老师常规的excel报表，每页20行，怎么在后面增加两行：本页小计，累计  呢？

 老师，标题行能不能多行呢？

老师，在模板里面设置了顶端标题行，生成报表里面没有，什么问题呢？

 

知道问题了，谢谢！

还有个问题，项目名称在表中是单独一列存放的，这个项目名称怎么引用呢？还是需要代码来替换？

此主题相关图片如下：444.png

老师，格式化千分位，没格式化成功呢？请看看：

<"累计支出合计:" & Format(*[#项目流水账,Sum(支出)]*,"n") & "元">

老师，是我问题没说清楚，不是三位数，

显示带千位分隔符的数字，其中小数点分隔符左侧至少有一个数字，右侧至少有两个数字。

例如：

Format(12345.6,"n") '12,345.60

 

http://www.foxtable.com/webhelp/topics/0361.htm

老师，在请教一下报表，表头我设置了3行，但是导出后第2页开始就只有两行表头，怎么问题呢？

 

此主题相关图片如下：报表模板.png

此主题相关图片如下：报表.png

老师，以下代码导出后，不是按照交易日期排序导出的，怎么按照交易日期排序后导出？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(ProjectPath & "Attachments\项目资金使用流水账.xlsx")
    Dim fl As String =  ProjectPath &  "Reports\项目资金使用流水账.xlsx"
    'Dim fl As String =  ProjectPath &  "Reports\出库单.pdf"
    If DataTables("项目流水账").LoadFilter = ""
        book.AddDataTable("项目流水账","外据","S elect * from {项目流水账}")
    Else
        book.AddDataTable("项目流水账","外据","S elect * from {项目流水账} where " & DataTables("项目流水账").LoadFilter)
    End If
    Book.Build() '生成细节区
    Book.Save(dlg.FileName) '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = dlg.FileName
    Proc.Start()
End If