主题：自动编号的问题

 代码这样写，在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