- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查询窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114300)
-- 发布时间：2018/2/2 15:36:00
-- 查询窗口
想做一个查询窗口 希望在该窗口输入 产品型号 就能搜索到所有加工该产品的刀具呢
此主题相关图片如下：qq图片20180202151759.png
哪位大神能给帮助啊
-- 发布时间：2018/2/2 15:47:00
--
如果是筛选，这样写
Tables("表A").filter = "使用产品 like \'%转向节%\'"
如果是提取某一列值，参考 http://www.foxtable.com/webhelp/scr/1435.htm
-- 发布时间：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
End If
此主题相关图片如下：360截图1621060999122138.png
写了一段代码 但是达不到我想要的状态 不知道我的思路对不对
-- 发布时间：2018/2/23 10:42: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
Tables("刀具管理明细").Filter = "适用产品 like \'%" & str & "%\'"
Else
Tables("刀具管理明细").Filter = "适用产品 = \'" & str & "\'"
End If
-- 发布时间：2018/2/23 11:05:00
--
find 跟 Filter 不能通用吗
-- 发布时间：2018/2/23 11:12:00
--
find 只是找
DataTables("刀具管理明细").find 在后台数据库 是否找到 就完成了
Filter 过滤条件筛选
-- 发布时间：2018/2/23 11:13:00
--
以下是引用雅痞123456在2018/2/23 11:05:00的发言：
find 跟 Filter 不能通用吗
find 跟 Filter 不能通用吗
不明白你要做什么最后要得到什么效果？请具体说明。