主题：求代码

在CurrentTableChanged事件设置了这个代码?切换表时同步,记录行..但是现在有一个问题是,因为第一个表控件太多现在切换其它表没问题,就是切换第一个表时明显示加载慢,刚才看了这两个帮助文可还是不知道把代码加在哪,还想保留以前那种同步和记录行不闪,

lockbasemainform

CurrentTable.StopRedraw

CurrentTable.Current.Save

Dim identify As Integer = CurrentTable.Current("_Identify")

Dim tidx As Integer = CurrentTable.TopVisibleRow

CurrentTable.DataTable.Load

Dim idx As Integer = CurrentTable.FindRow("_Identify = " & identify)

If idx > -1 Then

    CurrentTable.Position = idx

    CurrentTable.TopVisibleRow = tidx

Else

    CurrentTable.Position = CurrentTable.Rows.Count - 1

End If

CurrentTable.ResumeRedraw

unlockbasemainform