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

怎么实现一切换表头就同步当前表,就是切换到哪个表时一点表头就先同步,然后把鼠标定位到当前表有数据的最后一行,就是准备要输入的那行

 在MainTableChanging事件写代码

 

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

 

这个是选择不同主表前同步,同步的是哪个表,比如在表1时点表2,是同步的表1还是表2,记录的哪个表的最后一行

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

 

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