以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中表的最后一行可见  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72424)
--  作者：hqy168168
--  发布时间：2015/7/30 9:09:00
--  窗口中表的最后一行可见
窗口中有表A，几千行数据，如何在打开窗口后，不用拉滚动条，让表A的最后一行在窗口中可见?
--  作者：yan2006l
--  发布时间：2015/7/30 9:17:00
--  
 

例如在订单表中，我们希望将光标定位到最后一次订购PD01产品的订单：

Dim dr As DataRow
dr = DataTables("订单").Find("[产品] = \'PD01\'", "日期 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("订单").FindRow(dr)
    If wz >= 0 Then
        Tables("订单").Position = wz
    End If
End If
--  作者：大红袍
--  发布时间：2015/7/30 23:40:00
--  

Tables("表A").Position = Tables("表A").Rows.Count