以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何定位到非空的最后一行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94124)
--  作者：wuzhouji
--  发布时间：2016/12/16 8:44:00
--  如何定位到非空的最后一行
数据表末尾有较多空行，如何定位到最后的非空行
--  作者：有点色
--  发布时间：2016/12/16 9:01:00
--  

参考代码

 

Dim t As Table = Tables("表A")
Dim pidx As Integer = 0
For Each r As Row In t.Rows
    If r.IsNull("第一列") = false Then
        pidx = r.Index
    End If
Next

t.Position = pidx
--  作者：wuzhouji
--  发布时间：2016/12/16 9:11:00
--  谢谢！
谢谢！
--  作者：fivetable
--  发布时间：2018/6/13 22:49:00
--  

如果是几万行的数据，这么查会不会很费时间。我的思路是从下往上查，从空行到非空行的位置。这思路如何！
--  作者：有点甜
--  发布时间：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