参考代码，有问题，做例子发上来。

If e.DataCol.Name = "订舱日期" Then
    If e.DataRow.IsNull("订舱日期") Then
        e.DataRow("订舱编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("订舱日期"),"yyyyMMdd") & "-内贸" \'取得订舱编号的8位前缀
        If e.DataRow("订舱编号").StartsWith(bh) = False \'如果订舱编号的前8位不符
            Dim  max As String
            Dim  idx As  Integer
            max = e.DataTable.Compute("Max(订舱编号)","订舱日期 = #" & e.DataRow("订舱日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大订舱编号
            If  max > "" Then \'如果存在最大订舱编号
                idx = CInt(max.Substring(bh.length,3)) + 1  \'获得最大订舱编号的后三位顺订舱编号,并加1
            Else

                idx = 1 \'否则顺订舱编号等于1
            End  If
            e.DataRow("订舱编号") = bh & Format(idx,"000")
         End If
    End  If
 End  If