主题：求助 特殊自动编号

Select e.DataCol.Name

    Case "起始吨位号"

        If e.DataRow.IsNull("起始吨位号") Then

            e.DataRow("吨位号") = Nothing

        Else

            Dim lb As String = e.DataRow("起始吨位号")

            Dim max As String

            Dim idx As Integer

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

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

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

            Else

                idx = e.DataRow("起始吨位号") '否则顺序号等于1

            End If

            e.DataRow("吨位号") = idx

        End If

End Select