如果窗口表有下一行，就选择他，如果没有就选择当前行，请问怎么改代码，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果窗口表有下一行，就选择他，如果没有就选择当前行，请问怎么改代码，谢谢

共有2206人关注过本帖树形打印复制链接主题：如果窗口表有下一行，就选择他，如果没有就选择当前行，请问怎么改代码，谢谢

taoxian

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：115 积分：1056 威望：0 精华：0 注册：2016/4/10 10:25:00

如果窗口表有下一行，就选择他，如果没有就选择当前行，请问怎么改代码，谢谢 发帖心情

Post By：2016/6/4 9:52:00 [只看该作者]

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 t As Table = Tables("窗口2_Table1")

For i As Integer = 0 To t.Rows.Count -1

If t.Rows(i)("第三列") = txt1 Then

t.Position = i

Exit For

End If

这个是找到窗口1的上一行然后在窗口2中第三列找到并选定它

现在想写为如果有下一行就选择窗口2的下一行

请问怎么加代码！！！！！！！！谢谢

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/6/4 11:08:00 [只看该作者]

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

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