查询窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询窗口

共有2190人关注过本帖树形打印复制链接主题：查询窗口

雅痞123456

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

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

查询窗口

Post By：2018/2/2 15:36:00 [显示全部帖子]

想做一个查询窗口希望在该窗口输入产品型号就能搜索到所有加工该产品的刀具呢

此主题相关图片如下：qq图片20180202151759.png

哪位大神能给帮助啊

雅痞123456

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

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2018/2/23 10:34:00 [显示全部帖子]

Dim tbx As WinForm.TextBox = e.Form.Controls("Textfind")

Dim chk As WinForm.CheckBox = e.Form.Controls("Chkfind")

Dim str As String = tbx.value

Dim dr As DataRow

If chk.Checked Then

dr= DataTables("刀具管理明细").find("适用产品 like '%" & str & "%'")

Else

dr= DataTables("刀具管理明细").find("适用产品 = '" & str & "'")

End If

If dr IsNot Nothing Then

Dim idx As Integer = Tables("刀具管理明细").findrow(dr)

If idx >=0 Then

Tables("刀具管理明细").Position = idx

End If

此主题相关图片如下：360截图1621060999122138.png

写了一段代码但是达不到我想要的状态不知道我的思路对不对

雅痞123456

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

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2018/2/23 11:05:00 [显示全部帖子]

find 跟 Filter 不能通用吗

主题：查询窗口