以文本方式查看主题

-  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


--  作者:菜鸟foxtable
--  发布时间: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编辑过]

--  作者:菜鸟foxtable
--  发布时间: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
--  

谢谢,,,学习了。。