Foxtable(狐表)用户栏目专家坐堂 → 在窗口中设置自动筛选功能


  共有21184人关注过本帖树形打印复制链接

主题:在窗口中设置自动筛选功能

帅哥哟,离线,有人找我吗?
卟离卟弃
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
在窗口中设置自动筛选功能  发帖心情 Post By:2009/3/23 18:05:00 [只看该作者]

我想设置一个窗口对某一表进行筛选。
在出库表中设置一个查找窗口,对库存表进行查找。
在窗口中输入查找的关键字时,希望能自动对库存表中名称列与规格列同时查找相近的数据。
当关健字越详细时,查找出来的数据中包含的关键字越接近
当我在窗口中输入1时
把库表中名称列与规格名包含有1的数据筛出来
当我输入123时
只筛出名称列或规格列包含有123这三个字符的数据。只有1或有12的数据都不筛出来。
自动筛。不是等我输入条件在按下按钮才进行筛选。
输入条件后就马上自动筛选。。。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工具管理.table

帮帮忙。。。。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/23 18:56:00 [只看该作者]

根据名称和规格动态自动查找,你原来做得挺不错啊,我只是清除了没有用的代码,只留下动态筛选的:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目21.table


 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟foxtable
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/23 22:07:00 [只看该作者]

不明白你的意思,用动态数据字典不行吗?.
[此贴子已经被作者于2009-3-23 22:22:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟foxtable
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By:2009/3/23 23:11:00 [只看该作者]

图片点击可在新窗口打开查看换个简单的说法吧.就按您的实例...

输入字符进行DataList的筛选....然后使用键盘上下键直接选择DataList某行,回车把DataList此行写入表A新增行中.
[此贴子已经被作者于2009-3-23 23:11:45编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/23 23:16:00 [只看该作者]

这个简单,只需在textbox的keydown事件中设置代码,检查所按下的按键,如果是上下箭头键,则在DataList中上下选定行,如果按下回车键,则将DataList中选定行的数据A写入表A

[此贴子已经被作者于2009-3-23 23:15:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
卟离卟弃
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
  发帖心情 Post By:2009/3/24 9:04:00 [只看该作者]

谢谢,,,学习了。。


 回到顶部