主题：★★★Excel报表的跨记录调用数值问题★★★

有一个表中有某列记录如下：

楼上说的办法用了还是不行，用代码绕了个弯才搞定，但这样代价很大，每个明细记录都会查询一次数据库。 有没有专家知道怎么做呢，其实就是想知道明细数据扩展的时候，上一条记录的值。

代码解决办法如下：（用范例的出库单报表测试，数量用来模拟需要转变的页次，程序打包到了附件）

 

Select Case e.Book.TempLate
    Case "出库单"
        e.Book.Marks("数量") =""
       
        If e.DataRow IsNot Nothing AndAlso e.Region = "出库明细" Then
            Dim Filter1 As String = "出库单编号 = '" & e.DataRow("出库单编号") & "' and _identify <" &  e.DataRow("_identify")
            Dim yeci As Integer
            yeci=DataTables("出库明细").Compute("Sum(数量)",Filter1)
            If yeci=0 Then
                e.Book.Marks("数量") =1
            Else
                e.Book.Marks("数量") = DataTables("出库明细").Compute("Sum(数量)",Filter1) +1
               
            End If
           
           
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.zip

 excel模板的公式被清除，不过听说新版本会增加楼主需要的功能。

 代码的话，也可以精简下的。用到静态变量。

Static sum As Integer = 1

Select Case e.Book.TempLate
    Case "出库单"
        If e.DataRow IsNot Nothing AndAlso e.Region = "出库明细" Then
            e.Book.Marks("数量") = sum
            sum = sum + e.DataRow("数量")
        Else
            e.Book.Marks("数量") = ""
        End If
End Select

不过静态变量是一直存储的，如果你生成报表多次的话，建议使用全局变量，在生成报表之后，把全局变量赋值为开始的值。

加一列，把上一行的页数取过来。