主题：excel报表

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

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

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

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

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

例如：

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

 

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

测试过不行吗？！

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

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

 

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

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

去掉中间的<HeaderRow>，只需要最上面一行，和最下面一行设置<HeaderRow>即可

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

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

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