主题：[分享]插入行的代码

Dim dt As String = CurrentTable.Name
Dim cname As String = "InsertRowTemp"
If DataTables(dt).DataCols.Contains(cname) = False Then
   Datatables(dt).DataCols.Add(cname,GetType(Double))
   Tables(dt).Cols(cname).Visible = False
End If
Dim ds As Integer = DataTables(dt).DataRows.Count
Dim r As Integer
For r = 0 To ds-1
    Tables(dt).Rows(r)(cname) = r+1
Next
Dim i As Integer = CurrentTable.Position
If i < 0 Then
    CurrentTable.AddNew()
ElseIf i = 0 Then
    Dim v As Double = CurrentTable.Current(cname) - 1
    CurrentTable.AddNew()(cname) = v
Else
    Dim v1 As Double = CurrentTable.Current(cname)
    Dim v2 As Double = CurrentTable.Rows(CurrentTable.Position - 1)(cname)
    CurrentTable.AddNew()(cname) = (v1+v2) / 2
End If
CurrentTable.Sort = cname
CurrentTable.Position = i

插入排序是按照隐藏列“InsertRowTemp”的顺序排列，如果在打乱前没有再次插入，可使用此字段恢复排序。表中唯一可以无限向前恢复的字段就是_identify,但此字段是按照添加次序排序，不能保存插入顺序。插入顺序本来就是为了方便手工排序而定义的功能，不适合代码再次恢复排序