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