主题：求自动编号？

在表事件DataColChanged的代码设置为：

If e.DataCol.Name = "托运日期" Then
    If e.DataRow.IsNull("托运日期") Then
        e.DataRow("货单编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("托运日期"),"yyyyMMdd")
        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(7,3)) + 1
                idx = 1
              End If
            e.DataRow("货单编号") = bh & "-" & Format(idx,"000")
        End If
    End If
End If

在运行的第一行时能自动编号，再到第二行输入日期后提示运行错误。如下图：

此主题相关图片如下：运行错误.bmp

图示呀，输入第一行就自动带出了编号，输入第二行的日期后，就出现了这个提示框，我不知道问题出在哪？

大家辛苦了，谢谢大家！其实你们的编码跟我的是一样的，经测试都不能递增编号，我已经找到了答案，经反复测试，是 idx = 1前面一行少了一个 Else语句，这个帮助真害人，害得我测试了三天。

如果没有 Else，得到的结果永远是1