以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  当选择表A时,自动定位到表最下一行的代码。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93544)

--  作者:feixianzhi
--  发布时间:2016/12/1 8:38:00
--  当选择表A时,自动定位到表最下一行的代码。

项目中有表A、表B、表C。

我想实现,选择表A时,自动定位到表最下一行,选择其他表时不需要定位到表最后一行的代码。

我写了一个,但不行。

If MainTable.Name = "表A" Then 
    \'CurrentTable.Position = CurrentTable.rows.count-1
End If

这段代码,选择哪个表都定位到最后一行,请哪位老师帮忙改一下。

--  作者:有点蓝
--  发布时间:2016/12/1 8:50:00
--  
我测试没有问题

或者试试下面代码
If MainTable.Name = "表A" Then 
    Tables("表A").Position = Tables("表A").rows.count-1
End If

--  作者:有点色
--  发布时间:2016/12/1 9:11:00
--  

你可以写到CurrentTableChanged事件

 

If CurrentTable.Name = "表A" Then
    CurrentTable.Position = CurrentTable.rows.count-1
End If


--  作者:feixianzhi
--  发布时间:2016/12/1 12:53:00
--  
非常感谢有点蓝和有点色老师的帮忙,两个代码的效果是一样的。