每插入1行要计算sortkey的值，当然慢了
换种方法，先添加1000行，再更改sorkey值
Dim st As Date = Date.Now
Dim tb29 As WinForm.Table = Forms("窗口1").Controls("Table1")
Dim tb As Table = tb29.Table
tb.Position = 5
Dim a As Decimal = tb.rows(4)("_sortkey")
Dim b As Decimal = tb.rows(5)("_sortkey")
Dim c As Decimal = (b - a) / 1010
Dim max As Integer = tb.rows.Count - 1
tb.StopRedraw
SystemReady = False
tb.AddNew(1000)
'窗口中的10列表
Try
For n As Decimal = 1 To 1000
a = a + c
tb.rows(max + n)("_sortkey") = a
Next
Catch ex As Exception
MessageBox.Show("追加数据失败")
End Try
SystemReady = True
tb.ResumeRedraw
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
加好友 
发短信
Post By：2023/8/21 16:43:00 [显示全部帖子]
