主题：怎么实现一切换表头就同步当前表

不能实现原地不动吗,另外要是设置只要有数据变化就同步会不会导致报错啊,上次让报错弄的都不敢了

 不会报错。

那应该设置在哪个事件呢

 你就想现在这样做吧，别折腾啦

哈哈,老大烦了吧.那行,那你把那个记录上次鼠标同步原地不动代码教我吧

不是给过你了么

 

lockbasemainform
CurrentTable.StopRedraw
CurrentTable.Current.Save
Dim identify As Integer = CurrentTable.Current("_Identify")
CurrentTable.DataTable.Load
Dim idx As Integer = CurrentTable.FindRow("_Identify = " & identify)
If idx > -1 Then
    CurrentTable.Position = idx
Else
    CurrentTable.Position = CurrentTable.Rows.Count - 1
End If
CurrentTable.ResumeRedraw
unlockbasemainform

这个不是切换表后记录的上次鼠标会到表的最底吗,能不能找开表后和上次找开一样,数据也同步了

 这儿就是记录了啊，我测试就是原来的那一行啊

切换完记录的是上次位置,但是鼠标会到表的最底部,

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