Foxtable(狐表)用户栏目专家坐堂 → 窗口中表的最后一行可见


  共有2658人关注过本帖树形打印复制链接

主题:窗口中表的最后一行可见

帅哥哟,离线,有人找我吗?
hqy168168
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:251 积分:3384 威望:0 精华:0 注册:2012/7/20 12:15:00
窗口中表的最后一行可见  发帖心情 Post By:2015/7/30 9:09:00 [只看该作者]

窗口中有表A,几千行数据,如何在打开窗口后,不用拉滚动条,让表A的最后一行在窗口中可见?

 回到顶部
帅哥哟,离线,有人找我吗?
yan2006l
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/30 23:40:00 [只看该作者]

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


 回到顶部