If e.DataRow.IsNull("gzxx") Then

            e.DataRow("zzsqbh") = Nothing

        Else

            Dim lb As String = e.DataRow("gzxx")

            If e.DataRow("zzsqbh").StartsWith(lb) = False \'如果单据编号前缀不符

                Dim max As String

                Dim idx As Integer

                max = e.DataTable.Compute("Max("zzsqbh")","gzxx = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号

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

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

                Else

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

                End If

                e.DataRow("zzsqbh") = lb & Format(idx,"000")

            End If

        End If

为何？谢谢！

补充：表的主键是 [_Identify] 在命令窗口执行：

 dim dr as datarow=current.current.datarow

dim lb as string=dr("gzxx")

msgbox( max ="gzxx = \'" & lb & "\' And [_Identify] <> " & dr("_Identify"))

显示是正常的