主题：[求助]关于Excel导出报表页码转换的问题

我想请教老师，我在窗口的控件内对主表“表A”录入文件名称和页码。比如说我录入的第一行的第一个文件页码为3页，第二行的文件页码为6页。导出目录的时候，我想让我的目录内的页码编号为第一行对应的文件页码显示为1-3，第二行的页码显示0 4-9.请问老师这个代码要怎么写。谢谢，

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

点击浏览该文件:文件录入.zip

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

点击浏览该文件:文件录入.zip

意思要直接加一列呀。。。。

 

是的，需要辅助列。这一列是自动计算得出的。

datacolchanged事件，本来的事件代码删掉。

 

If e.DataCol.Name = "页码" Then
    Dim cnt As Integer = e.DataTable.Compute("sum(页码)","_sortkey <= " & e.DataRow("_sortkey") & " and _Identify <> " & e.DataRow("_Identify"))
    e.DataRow("页码范围") = (cnt +1) & "-" & (cnt + e.DataRow("页码"))
    Dim drs = e.DataTable.Select("_sortkey >= " & e.DataRow("_sortkey"))
    For i As Integer = 0 To drs.Count - 1
        Dim r As DataRow = drs(i)
        If r.IsNull("页码") = False Then
            r("页码范围") = (cnt +1) & "-" & (cnt + r("页码"))
            cnt = cnt + r("页码")
        End If
    Next
End If