主题：如果窗口表有下一行，就选择他，如果没有就选择当前行，请问怎么改代码，谢谢

Dim cr As Row = Tables("窗口1_Table1").current

If cr IsNot Nothing Then

    Dim dr As Row = Tables("窗口1_Table1").Rows(iif(cr.index=0, 0, cr.index-1))

    Dim txt1 As String = dr("第三列")

    Dim r As Integer = Tables("窗口2_Table1").Find(txt1,0,"第三列",False,True,False)

    If r > - 1 Then '如果找到符合条件的行

        Tables("窗口2_Table1").Position = r+1 '则选择该行

    End If

End If