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

代码精简,厉害...
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的类似功能?标注红色感觉最难...

要求进入此单元格弹出筛选窗口,筛选窗口随单元格输入内容自动筛选....然后直接上下键选择筛选窗口行,回车自动填充整行数据.

换个简单的说法吧.就按您的实例...

输入字符进行DataList的筛选....然后使用键盘上下键直接选择DataList某行,回车把DataList此行写入表A新增行中.