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

 在MainTableChanging事件写代码

 

DataTables(e.NewTableName).Load
Tables(e.NewTableName).Position = Tables(e.NewTableName).Rows.Count - 1

 

  没有表头的点击事件，反正你要同步哪个表就在哪个事件写代码

 

DataTables("表A").Load
Tables("表A").Position = Tables("表A").Rows.Count - 1

 

 你就写到CurrentTableChanged事件。

 CurrentTable.DataTable.Load
CurrentTable.Position = CurrentTable.Rows.Count - 1

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

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

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

 这个就是最好的效果了。

 不会报错。