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

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

点击浏览该文件:材料页数生成开始页码与结束页码.zip

老师  现在这个过程是加入了表事件代码中的  有没有办法直接弄在内部函数中呢？因为实际项目时，不会加载表，都是sql语句执行或内部函数直接运行呢

实际项目是怎么用的，具体举例说明一下

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

老师  运行结果还是和楼上的是一样的哦  还得继续麻烦老师

哦，小学数学种树问题容易犯的错误，加之后再减1就行了

谢谢老师