主题：自动编号问题

老师，我用下面代码生成自动编号：

If e.DataCol.Name = "订购日期" Then
    If e.DataRow.IsNull("订购日期") Then
        e.DataRow("订单号") = Nothing
    Else
        Dim bh As String = "DG" & Format(e.DataRow("订购日期"),"yyMMdd")
        If e.DataRow("订单号").StartsWith(bh) = False
            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,2)) + 1
            Else
                idx = 1
            End If
            e.DataRow("订单号") = bh & "-" & Format(idx,"00")
        End If
    End If
End If

但有时要用自编的订单号，如：104239

之后再用当天的日期就无法生成编号，会出现调用错误，如下：

.NET Framework 版本：2.0.50727.5456
Foxtable 版本：2014.11.11.1
错误所在事件：表，辅料订购单，DataColChanged
详细错误信息：
调用的目标发生了异常。
startIndex 不能大于字符串长度。
参数名: startIndex

请教代码如何修改，谢谢！