主题：EXCEL报表的问题

EXCEL报表的合计功能 官方演示的数量，金额统计均是引用数据表中的数据实体字段

 

但一个高效的设计 里一般金额多用的是：表达式列

 

而官方在EXCEL报表引用数据不能是表达式列

 

那么在数据表中金额是表达式列时，如何在打印输出模板上统计金额的合计值呢

 

明细行中求金额：<iif([数量]*[市场价]>0,[数量]*[市场价],"")> 用此公式搞定

 

金额合计列 =SUM(INDIRECT("H7:H"&ROW()-1)) 用此公式，生成报表时显示#VALUE人工双击一下单元格时统计值能出来（但这种方式求的和要求H列不得有其它数字及日期出现）

 

问这种状况下如何求金额合计值。

 呃，excel报表谁说不能引用表达式列？

 你可以在foxtable里面加入一列金额列来处理。

谢谢问题基本解决了，但有个小问题不好解决。

 

个别列内容可能比较长，比如 规格 列，不管你单元格设置多宽，内容总有不能全部显示的

 

在EXCEL中设置了自动换行。换行是生效了，但不能自动行高，如何处理。

不合并单元格自动行高

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
'Rg.EntireColumn.AutoFit   '自动调整列宽
Rg.EntireRow.AutoFit  '自动调整行高
'Rg.WrapText = True
App.Visible = True

 

我想在报表事件中的After build中

 

Dim myExcel As MsExcel.Application  = Getobject(,"Excel.Application")
Select e.Book.TempLate
    Case "采购订单打印模板"
        Select Case e.Book.CurrentSheetName
            Case "Sheet1"
                With myExcel.Workbooks("采购订单打印模板.xls").Sheets("Sheet1")
                    .Columns("C:C").Rows.AutoFit
                End With
        End Select
End Select

但运行不正常，请修正

目的是要对生成的报表的C列进行自动 行高

Select e.Book.TempLate
    Case "采购订单打印模板"
        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Report/采购订单打印模板.xls")
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.Cells
        'Rg.EntireColumn.AutoFit   '自动调整列宽
        Rg.EntireRow.AutoFit  '自动调整行高
        'Rg.WrapText = True
        'App.Visible = True
        wb.Save
        app.Quit
End Select

EXCEL报表模板里面，关于打印的设置比如页眉页脚设置都能生效

 

唯独 关于标题行等有关工作表的设置不生效，被清空了

 

那么FT如何通过命令行设置 打印时的标题行了呢

这段代码 要放报表事件哪里

我放在After Build中

系统提示找不到文件，说明此时该文件还未生成

 

 

所以，不能用报表事件来做。要单独弄一个按钮。