主题：根据卷宗id进行分组，当排序码发生变化时或材料页码发生变化时都要能够自动更新开始和结束页数据 然后按照排序码顺序，结合材料页码数据，开始页从1开始编号，并计算结束页。

1、定义内部函数（根据卷宗id与排序码来实现页数变化后自动生成开始页与结束页）：

Dim juanzongid As string= Args(0)

Dim cmd As New SQLCommand

cmd.Co nne cti onN ame = "主数据源"

Dim dt As DataTable

cmd.CommandText = "SE L ECT * From {案件卷宗材料信息}  "

dt = cmd.ExecuteReader(True)

Dim Products2 As List(Of String())

Products2 = dt.GetValues("卷宗id|排序码")

For Each Product2 As String() In Products2 '遍历卷宗id

    Dim idx As Integer = 1

    Output.Show(Product2(0))

    Output.Show(Product2(1))

    Dim dr As DataRow = dt.Find("卷宗id='" & Product2(0) & "' and 排序码<'" & Product2(1) & "'", "排序码 desc")

    If dr IsNot Nothing Then

        idx = dr("结束页") + 1

    End If

    For Each dr In dt.Sele ct("卷宗id = '" & Product2(0) & "' and 排序码>='" & Product2(1) & "'", "排序码")

        dr("开始页") = idx

        dr("结束页") = idx + dr("材料页码")

        idx = dr("结束页") + 1

    Next

    dr.save

Next 

2、后端函数：（接受前端传递的卷宗id，然后传递给内部函数，让内部函数计算当前卷宗id下的所有材料按照排序码的顺序结合文件页数计算开始页与结束页）

Public Sub yemajisuan_Ajax(rq As Request)

      Dim e As RequestEventArgs = rq.e

      Functions.Execute("根据卷宗id与排序码来实现页数变化后自动生成开始页与结束页", e.values("卷宗id"))

End Sub

3、前端使用：（传递卷宗id值给后端函数）

$.post("yemajisuan.Ajax", {

             卷宗id:e.form.guid;

            },

          function(res) {

                  console.log(res)

            })

当前用命令行执行如上内部函数代码：得到的结果值不对，

1，第一行开始页是1，结束页为2；第二行开始页就应该为3，结果显示2，结束页是7  是正确

2、第一行开始页是1，结束页为为6？不对，结束页应该为5，第二行开始页应该为6，结果显示为2，结束页应该为30，结果显示27

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