Foxtable(狐表)用户栏目专家坐堂 → 如何定位到非空的最后一行


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

主题:如何定位到非空的最后一行

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/14 0:02:00 [显示全部帖子]

以下是引用fivetable在2018/6/13 22:49:00的发言:

如果是几万行的数据,这么查会不会很费时间。我的思路是从下往上查,从空行到非空行的位置。这思路如何!

 

Dim t As Table = Tables("表A")
Dim pidx As Integer = 0
For i As Integer = t.rows.count-1 To 0 Step -1
    Dim r As Row = t.rows(i)
    If r.IsNull("第一列") = False Then
        pidx = r.Index
    End If
Next

t.Position = pidx


 回到顶部