以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口AfterLoad时窗口中的副本表定位到末行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120581)

--  作者:蓝蚂蚁
--  发布时间:2018/6/20 8:48:00
--  窗口AfterLoad时窗口中的副本表定位到末行
下面的代码放到窗口的AfterLoad里面,已达到定位到末行

Dim t As Table =Tables("窗口1_Table1")
t.position = t.rows.count-1

能不能,制作一个自定义函数
For Each mh As Table In Tables
    Dim t As Table =CurrentTable
    t.position = t.rows.count-1
Next


然后在窗口AfterLoad中调用这个自定义函数:Functions.Execute("mh")。
但上面的代码错误,正确的代码应是怎样的?亦或者这样的函数功能做不到?

--  作者:有点甜
--  发布时间:2018/6/20 9:21:00
--  

For Each mh As Table In Tables
    Dim t As Table = mh
    t.position = t.rows.count-1
Next