主题：请问老师如何在筛选后仍能找到未筛选前的最大值？发现新问题：同时提交会有重复编号问题

Select e.DataCol.Name

    Case "年度批号"

        If e.DataRow.IsNull("年度批号") Then

            e.DataRow("产品批号") = Nothing

        Else

            Dim lb As String = e.DataRow("年度批号")

            If e.DataRow("产品批号").StartsWith(lb) = False '如果单据产品批号前缀不符

                Dim max As String

                Dim idx As Integer

                If max > "" Then '如果存在最大产品批号

                    idx = CInt(max.Substring(6,5)) + 1 '获得最大产品批号并加1

                Else

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

                End If

                e.DataRow("产品批号") = lb & Format(idx,"00000")

            End If

        End If

End Select