有一材料表(数据参考如下:)类别 名称 页数 开始页码 结束页码
A A1 2 1 2
A A2 3 3 5
A A3 4 6 9
B B1 5 1 5
如何实现页数变化后,开始页码默认从1开始,计算出开始页码与结束页码。
谢谢!
代码如何修正呢?以类别为主线,根据不同的类别生成不不同类别对应的开始页码与结束页码,
Dim cmd As New SQ LCommand
cmd.Conn ecti
Dim dt As DataTable
cmd.Com man dText = "SELE CT * From {目录表}"
dt = cmd.ExecuteReader()
Dim dr As DataRow
Dim drs As List(Of DataRow)
dr = dt.Find("类别 =‘“&values(“类别”)&”’ and [_SortKey] < " & e.DataRow("_SortKey"), "[SortKey] Desc") '找出上一行
If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
dr("开始页码") = 1
dr = e.DataRow
Else
dr("开始页码") = dr("结束页码") + 1
End If
drs = dt.S elect("类别 =‘“&values(“类别”)&”’ and [_SortKey] >= " & dr("_SortKey"), "[SortKey]")
For i As Integer = 1 To drs.Count - 1 '
drs(i)("开始页码") = drs(i - 1)("结束页码") + 1
Next
If e.DataRow.IsNull("开始页码") Then
dr("结束页码") = Nothing
Else
dr("结束页码") = dr("开始页码") + dr("结束页码") - 1
End If
dt.Save()
[此贴子已经被作者于2023/11/14 13:08:40编辑过]