主题：自动编号的问题

假如表中第一列为编号，整数型，已经输入了内容，更改某一行的编号后，从下一行开始自动加1，怎么实现？

 

 

如：

005

006

007

008

009

 

 

将007改为123后，008、009自动改为124、125

 代码这样写，在DataColChanged事件

Select Case e.DataCol.Name
    Case "第一列"
        Dim drs As List(Of DataRow) = e.DataTable.Select("_SortKey > " & e.DataRow("_SortKey"), e.DataCol.Name)
        If drs.Count > 0 Then
            Dim i As Integer = 1
            For Each dr As DataRow In drs
                dr(e.DataCol.Name) = Format(e.NewValue + i, "000")
                i = i + 1
            Next
        End If
End Select

谢谢啊，搞定了，不过不知道_SortKey 是什么意思，帮助里没看到

_SortKey列是系统列，不显示在表中，用于记录行的位置。