这代码是帮助逇，你的需求有变化，要稍微调整，见红色部分：

If e.DataCol.Name = "订单日期" Then
    If e.DataRow.IsNull("订单日期") Then
        e.DataRow("流水单号") = Nothing
    Else
        Dim bh As String = "CN" & Format(e.DataRow("订单日期"),"yyMMdd") \'取得编号的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(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("流水单号") = bh & "-" & Format(idx,"000")
        End If
    End If
End If

你的编号和帮助相比，长度不变，后面的序号也是三位，但是前面有字符CN，编号中年不是四位，是两位，调整这两部分就行。

关键你要去理解这种代码，消化了，就能举一反三，遇到问题，答案信手拈来。

If e.DataCol.Name = "订单日期" Then
    If e.DataRow.IsNull("订单日期") Then
        e.DataRow("流水单号") = Nothing
    Else
        Dim bh As String ="PO"& Format(e.DataRow("订单日期"),"yyMMdd") \'取得编号的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(7,2)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("流水单号") = bh & "-" & Format(idx,"00")
        End If
    End If

ok了   但是不我知道  为什么刚才直接拿过去  用的时候要提示字符串太长？

End If

因为你没有加cn，编号的长度少了2位，总长只有10位了，从第9位开始数三位，自然就长度不够：

idx = CInt(max.Substring(9,3)) + 1

你8楼的代码也有问题，应该用6楼的代码。