以下是引用tianhe95在2009-11-24 19:14:00的发言：
另类插入行，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 '定位到该行'
不错啊～ 就是稍微比狐爸的闪动大了些。
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()
可能是这段引起的～
加好友 
发短信
Post By：2009/11/24 19:38:00 [只看该作者]
