共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：在窗口中设置自动筛选功能
1楼
卟离卟弃 发表于：2009/3/23 18:05:00我想设置一个窗口对某一表进行筛选。
在出库表中设置一个查找窗口，对库存表进行查找。
在窗口中输入查找的关键字时，希望能自动对库存表中名称列与规格列同时查找相近的数据。
当关健字越详细时，查找出来的数据中包含的关键字越接近
当我在窗口中输入1时
把库表中名称列与规格名包含有1的数据筛出来
当我输入123时
只筛出名称列或规格列包含有123这三个字符的数据。只有1或有12的数据都不筛出来。
自动筛。不是等我输入条件在按下按钮才进行筛选。
输入条件后就马上自动筛选。。。
帮帮忙。。。。
在出库表中设置一个查找窗口，对库存表进行查找。
在窗口中输入查找的关键字时，希望能自动对库存表中名称列与规格列同时查找相近的数据。
当关健字越详细时，查找出来的数据中包含的关键字越接近
当我在窗口中输入1时
把库表中名称列与规格名包含有1的数据筛出来
当我输入123时
只筛出名称列或规格列包含有123这三个字符的数据。只有1或有12的数据都不筛出来。
自动筛。不是等我输入条件在按下按钮才进行筛选。
输入条件后就马上自动筛选。。。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工具管理.table |
帮帮忙。。。。
2楼
狐狸爸爸 发表于：2009/3/23 18:56:003楼
菜鸟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的类似功能?标注红色感觉最难...
要求进入此单元格弹出筛选窗口,筛选窗口随单元格输入内容自动筛选....然后直接上下键选择筛选窗口行,回车自动填充整行数据.
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楼
狐狸爸爸 发表于：2009/3/23 22:07:00不明白你的意思,用动态数据字典不行吗？.
[此贴子已经被作者于2009-3-23 22:22:17编辑过]
5楼
菜鸟foxtable 发表于：2009/3/23 23:11:00
换个简单的说法吧.就按您的实例...输入字符进行DataList的筛选....然后使用键盘上下键直接选择DataList某行,回车把DataList此行写入表A新增行中.
[此贴子已经被作者于2009-3-23 23:11:45编辑过]
6楼
狐狸爸爸 发表于：2009/3/23 23:16:00这个简单，只需在textbox的keydown事件中设置代码，检查所按下的按键，如果是上下箭头键，则在DataList中上下选定行，如果按下回车键，则将DataList中选定行的数据A写入表A
[此贴子已经被作者于2009-3-23 23:15:58编辑过]
7楼
卟离卟弃 发表于：2009/3/24 9:04:00谢谢，，，学习了。。
共7 条记录, 每页显示 10 条, 页签:
[1]