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

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

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

程兴刚

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

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/10/10 23:44: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

程兴刚

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

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

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

晕，修改您的代码时，忘记了写一个所查询表的表名称，这样：

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

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

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