主题：自动编号的实现

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

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，编号中年不是四位，是两位，调整这两部分就行。

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

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

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

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

错误提示不是你的字段长度不够，是代码中截取字符的函数出错。

如bin所言，最好做例子说话，一分钟搞定。