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

以下是引用狐狸爸爸在2009-11-24 11:49:00的发言：

应该可以满足很多场合的需要了。

下载信息  [文件大小：328.0 KB  下载次数：9]

点击浏览该文件:管理项目11.table

插入行设计的原则是不影响原有行数据，否则没有意义，如果因为插入移行，而修改原有10万行的编号，那么就失去了实用价值了。

再次提醒大家：数据本无序，只有排序。

以下是引用ssqq在2009-11-24 13:13:00的发言：

很多情况下，是没有ID这列的，要用这个公式，需要新增一个ID数据列，并且设置成顺序增加的。公式要想通用，就不能在执行公示前需要手工修改表结构。
建议老六把代码中增加设置自动增加临时数据列，并且执行完自动删除此临时列的功能。

以下是引用mr725在2009-11-24 14:25:00的发言：
最后补上下面代码，就不用担心ID列看上去乱哄哄的了，且可以让你点鼠标点到手指发麻为止 ：
For i As Integer = 0 To CurrentTable.Rows.Count-1
    CurrentTable(i,"ID") = i+1
next

不加这段代码，但你一直点击按钮增加行时，当达到12位小数时，就会乱套了～  ，

另外，列属性中最大小数位数，设置到超过12位数时，就会出错！！！～～～（我是设置到28位时出错，一路减少的12位及以下，还是出错？？？ 请检查一下）

以下是引用mr725在2009-11-24 15:09:00的发言：

先把ID列按序列充填好：1、2、3、、、、、、、n；按钮代码 如下 ：

Dim i As Integer = CurrentTable.Position
Dim v AS double
If i < 0 Then
    CurrentTable.AddNew()
    Return
ElseIf i = 0 Then
    v = CurrentTable.Current("ID") - 1
    CurrentTable.AddNew()("ID") = v
Else
    Dim v1 As Double = CurrentTable.Rows(CurrentTable.Position - 1)("ID")
    Dim v2 As Double = CurrentTable.Current("ID")
    Dim s1 As String = v1
    Dim s2 As String = v2
    Dim c1 As integer =  0
    Dim c2 As Integer =  0
    If s1.IndexOf(".") > 0 Then
        c1 = s1.Length - s1.IndexOf(".") -1
    End If
    If s2.IndexOf(".") > 0 Then
        c2 = s2.Length - s2.IndexOf(".") -1
    End If
    If c1 = c2 Then
        v = v1 + (v2 - v1) / 10 * 9
    Else
       Dim c As Integer = Math.Max(c2,c1)
       Dim n As Integer = 1
       v = v2 -  1 / 10 ^ c
       If v <= v1
           v = v2 - 1 / 10 ^ (c + 1)
       End If
    End If
    CurrentTable.DataTable.AddNew()("ID") = v
End If
CurrentTable.Sort = "ID"
CurrentTable.Position = CurrentTable.FindRow("ID = " & v,0,True)

For ii As Integer = 0 To CurrentTable.Rows.Count-1
    CurrentTable(ii,"ID") = ii+1
next