主题：较为完美的插入行的方法(第二次更新)

        插入一行（添加），再删除一个其他行，连续反复操作N次呢？

那就在最前面也加上这段代码（够狠的了，呵呵）：
For i As Integer = 0 To CurrentTable.Rows.Count-1
    CurrentTable(i,"ID") = i+1
next

你太狠了。
我是单独做一个按钮，定期整理ID列，实际使用的时候，ID列应该是隐藏的，有小数无所谓，因为这个列只是为了插入行，其余没有意义。

   那是我狠啊，是人家要求嘛。

再说，你这个插入行的例子是目前最好的啦～ 

呵呵，好东东，收藏应用！

另：他爸，能不能在此基础上，加入“向上移动”或“向下移动”功能或代码呢？（很需要的）

当前ID加减1.1后再排序？

自己做，很简单，提示：交换相邻行的ID值即可。

哎~没有现成的

有渔无鱼

另类插入行，Id号与行号一致，
Dim i As Integer = CurrentTable.Position
If i < 0 Then
    CurrentTable.AddNew()
Else
    Dim v1 As Double = CurrentTable.Current("ID")  '返回"ID"列的当前行的数值
    Dim v2 As Double
    Dim v3 As Double=CurrentTable.Rows(0)("ID")
    if v1 = v3
       v2=0
    Else
       v2 = CurrentTable.Rows(CurrentTable.Position - 1)("ID") '返回"ID"列的当前行上一行的数值
    End if
    CurrentTable.AddNew()("ID") = (v1+v2) / 2
End If
CurrentTable.Sort = "ID"
If CurrentTable.Count > 2 Then
   CurrentTable.Rows(0)("ID") = 1
   CurrentTable.Rows(1)("ID") = 2
   CurrentTable.Select(0,CurrentTable.Cols("ID").Index,CurrentTable.Rows.count-1,CurrentTable.Cols("ID").Index)
   Syscmd.Edit.SerialFill()
   If i = 0 Then
      With CurrentTable
          .Position = .Position + 1
      End With
   End  if
   CurrentTable.Select(CurrentTable.RowSel, CurrentTable.Cols(0).Index )  
End if
CurrentTable.Position =i '定位到该行'