[讨论][推荐][分享]利用FindRow进行查找，输出找到内容方法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

利用FindRow进行查找，将找到的输出找到的内容和位置

With CurrentTable

Dim dr As DataRow

Dim r As Integer

Output.show(.Position)

r = .FindRow("[第一列] Like '*湛江*'", .Position + 1, True ) '从当前行开始查找

Output.show(r)

If r >= 0 Then '如果找到的话

.Position = r '定位到找到的行.

Output.show(r)'输出找到的位置

dr = DataTables("aaa").DataRows(r) '输出找到的字段

Output.show(dr("第一列"))

End If

End With

除了此办法是否还有更简洁的方法，如果要输出所有找到的内容是否需要增加一个循环。

主题：[讨论][推荐][分享]利用FindRow进行查找，输出找到内容方法