主题：[求助]关于自动编号的疑惑

有SQL2008外部数据源“员工”表一张，有“员工编号”列，自己在表事件DataColChanged中写入以下代码：

 
此主题相关图片如下：1.png

Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(员工编号)","[_Identify] <> " & e.DataRow("_Identify")) '取得最大编号
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(1,3)) + 1 '获得最大编号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("员工编号") = Format(idx,"0000")

新增行，不自动增加编号，无解，希望老师帮忙一下！

写到datarowAdded事件去。

还是不行，我怀疑是代码有问题？

数据库表的数据如下：

此主题相关图片如下：2.png

麻烦甜老师看一下，谢谢！

代码我测试没有问题。肯定是没问题的。