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

各表里面没有相同的列啊老师,办要记录最后一行就行了

CurrentTable.DataTable.Load
Dim idx As Integer = CurrentTable.FindRow(CurrentTable.DataTable.Find(CurrentTable.Cols(0).Name & " Is not null", "_Identify desc"))
If idx > -1 Then
    CurrentTable.Position = idx
Else
    CurrentTable.Position = CurrentTable.Rows.Count - 1
End If
 

每次都闪两下,能不能不让它闪啊

如果记录上次鼠标位置呢,这样是不是就不会闪了,代码怎么写啊

lockbasemainform
CurrentTable.StopRedraw
CurrentTable.DataTable.Load
Dim idx As Integer = CurrentTable.FindRow(CurrentTable.DataTable.Find(CurrentTable.Cols(0).Name & " Is not null", "_Identify desc"))
If idx > -1 Then
    CurrentTable.Position = idx
Else
    CurrentTable.Position = CurrentTable.Rows.Count - 1
End If
CurrentTable.ResumeRedraw
unlockbasemainform

OK了,要的就是这效果

这是记录最后一行啊,老师,想要记录上次在表内鼠标位置

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

记录了上次鼠标位置,但是总是把上次鼠标位置定位到表的最底部,能不能实现原地不动,就像没同步一样,切换表后无任何变化,还同步了数据

 这个就是最好的效果了。