- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在窗口中设置自动筛选功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2180)
-- 发布时间：2009/3/23 18:05:00
-- 在窗口中设置自动筛选功能
我想设置一个窗口对某一表进行筛选。
在出库表中设置一个查找窗口，对库存表进行查找。
在窗口中输入查找的关键字时，希望能自动对库存表中名称列与规格列同时查找相近的数据。
当关健字越详细时，查找出来的数据中包含的关键字越接近
当我在窗口中输入1时
把库表中名称列与规格名包含有1的数据筛出来
当我输入123时
只筛出名称列或规格列包含有123这三个字符的数据。只有1或有12的数据都不筛出来。
自动筛。不是等我输入条件在按下按钮才进行筛选。
输入条件后就马上自动筛选。。。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工具管理.table |
帮帮忙。。。。
-- 发布时间：2009/3/23 18:56:00
--
根据名称和规格动态自动查找，你原来做得挺不错啊，我只是清除了没有用的代码，只留下动态筛选的：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目21.table |
-- 发布时间：2009/3/23 20:30:00
--
代码精简,厉害...
with e.Form
Dim dst As WinForm.DataList = .Controls("DataList1")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.RowFilter = "[名称] Like \'*" & txb1.text & "*\' or [规格] Like \'*" & txb1.text & "*\'"
end with
老爹,请教一下,如何设置某一单元格有TextBox1的类似功能?标注红色感觉最难...要求进入此单元格弹出筛选窗口,筛选窗口随单元格输入内容自动筛选....然后直接上下键选择筛选窗口行,回车自动填充整行数据.
[此贴子已经被作者于2009-3-23 20:32:04编辑过]
-- 发布时间：2009/3/23 22:07:00
--
不明白你的意思,用动态数据字典不行吗？.
[此贴子已经被作者于2009-3-23 22:22:17编辑过]
-- 发布时间：2009/3/23 23:11:00
--
换个简单的说法吧.就按您的实例...输入字符进行DataList的筛选....然后使用键盘上下键直接选择DataList某行,回车把DataList此行写入表A新增行中.
[此贴子已经被作者于2009-3-23 23:11:45编辑过]
-- 发布时间：2009/3/23 23:16:00
--
这个简单，只需在textbox的keydown事件中设置代码，检查所按下的按键，如果是上下箭头键，则在DataList中上下选定行，如果按下回车键，则将DataList中选定行的数据A写入表A
[此贴子已经被作者于2009-3-23 23:15:58编辑过]
-- 发布时间：2009/3/24 9:04:00
--
谢谢，，，学习了。。