主题：自动编号

Select e.DataCol.Name

    Case "申报年度", "卷号"

        If e.DataRow.IsNull("申报年度") OrElse e.DataRow.IsNull("卷号") Then

            e.DataRow("本卷编号") = Nothing

        Else

            Dim max As String

            Dim idx As Integer

            max = e.DataTable.Compute("Max(本卷编号)", "申报年度 = '" & e.DataRow("申报年度") & "' and 卷号='" & e.DataRow("卷号=") & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号

            If max > "" Then '如果存在最大编号

                idx = CInt(max) + 1 '获得最大编号的后三位顺序号,并加1

            Else

                idx = 1 '否则顺序号等于1

            End If

            e.DataRow("本卷编号") = idx

            

        End If

End Select