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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论][推荐][分享]利用FindRow进行查找，输出找到内容方法

共有5267人关注过本帖树形打印复制链接主题：[讨论][推荐][分享]利用FindRow进行查找，输出找到内容方法

反思

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

加好友

发短信

等级：婴狐帖子：22 积分：196 威望：0 精华：0 注册：2013/10/7 13:14:00

[讨论][推荐][分享]利用FindRow进行查找，输出找到内容方法 发帖心情

Post By：2013/10/10 22:55:00 [显示全部帖子]

利用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

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

反思

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

加好友

发短信

等级：婴狐帖子：22 积分：196 威望：0 精华：0 注册：2013/10/7 13:14:00

Post By：2013/10/11 1:02:00 [显示全部帖子]

谢谢指点

果然简单很多了。

补充了一下才能顺利运行。

Dim dr As DataRow = DataTables(CurrentTable.name).find("[第一列] Like '*湛江*'") '从datatable找符合条件的datarow
If dr IsNot Nothing
    Dim r As Integer = FindRow(dr) '找到后,会自动定位到该行,无需代码再定位
    Output.show(r) '输出找到的位置
    Output.show(dr("第一列")) '输出找到的字段
Else
    Output.show("没找到符合条件的行")
End If

下一主题 >> << 上一主题

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