主题：代码问题

With Tables("主材录入显示窗口")
    .Position = .Position - 1
End With

 

这个是录入窗口 上一行和下一行的按钮事件代码，如何增加代码，增加一个条件，定位在 金额不为空的上一张？

Dim t As Table = Tables("表A")
For i As Integer = t.Position-1 To 0 Step-1
    If t.Rows(i)("第一列") <> Nothing Then
        msgbox("找到")
        t.Position = i
        Exit For
    End If
Next

老师，用同样方法，找下一行，为什么不灵了？

Dim t As Table = Tables("表A")
For i As Integer = t.Position+1 To t.Rows.count-1
    If t.Rows(i)("第一列") <> Nothing Then
        msgbox("找到")
        t.Position = i
        Exit For
    End If
Next