根据狐爸插入行的例子 Dim i As Integer = CurrentTable.Position If i < 0 Then CurrentTable.AddNew() ElseIf i = 0 Then Dim v As Decimal = CurrentTable.Current("ID") - 1 CurrentTable.AddNew()("ID") = v Else Dim v1 As Decimal = CurrentTable.Current("ID") Dim v2 As Decimal = CurrentTable.Rows(CurrentTable.Position - 1)("ID") CurrentTable.AddNew()("ID") = (v1+v2) / 2 End If CurrentTable.Sort = "ID"