- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 从筛选出来的计划单中搜索 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91199)
-- 发布时间：2016/10/2 22:42:00
-- 从筛选出来的计划单中搜索
下面代码运行时，只要是规格型号，有要搜索的内容，也搜索出来。因为规格型号是用or来连接。
现要求，只从筛选出来的计划单中选取。如选取了A项目，就只在A项目里选取（001、003、005）。
Dim t1 As WinForm.Table = e.Form.Controls("Table1")
Dim ids As List(Of String) = t1.Table.DataTable.GetValues("计划单号",t1.Table.Filter)
Dim t2 As WinForm.Table = e.Form.Controls("Table2")
Dim filter As String = "计划单号 in (\'" & String.Join("\',\'",ids.ToArray()) & "\') "
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
If txt.Text > "" Then
filter = filter & " and 材料名称 like \'%" & txt.Text & "%\' or 规格型号 Like \'*" & txt.text & "*\' Or Convert([数量],\'System.String\') like \'%" & txt.text & "%\' "
t2.Table.Filter = filter
End If
此主题相关图片如下：14.gif
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:temp3.table |
[此贴子已经被作者于2016/10/2 22:43:14编辑过]
-- 发布时间：2016/10/3 9:33:00
--
filter = filter & " and (材料名称 like \'%" & txt.Text & "%\' or 规格型号 Like \'*" & txt.text & "*\' Or Convert([数量],\'System.String\') like \'%" & txt.text & "%\' )"
-- 发布时间：2016/10/3 9:37:00
--
贺老师，不要回答具体问题，还是加紧开发手机应用。