以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121606)
--  作者：nbsugu_z
--  发布时间：2018/7/10 11:00:00
--  代码问题

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

 

这个是录入窗口 上一行和下一行的按钮事件代码，如何增加代码，增加一个条件，定位在 金额不为空的上一张？
--  作者：有点甜
--  发布时间：2018/7/10 12:04:00
--  
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
--  作者：nbsugu_z
--  发布时间：2018/7/10 12:33:00
--  
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

老师，用同样方法，找下一行，为什么不灵了？
--  作者：有点甜
--  发布时间：2018/7/10 12:36:00
--  

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