由文本框改变列表框的内容
时间：2006-10-29 21:27 来源：本站原创 作者：佚名 阅读：次
private sub 文本框名_change()
dim txtTemp as string
txtTemp=文本框名.text
me.列表框名.rowsource="select 字段名 from 表名 where 字段 like '*"& txtTemp &"*'" '此句为文本字段全模糊查询
me.列表框名.requery
end sub
dim txtTemp as string
txtTemp=文本框名.text
me.列表框名.rowsource="select 字段名 from 表名 where 字段 like '*"& txtTemp &"*'" '此句为文本字段全模糊查询
me.列表框名.requery
end sub
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
最新内容
推荐内容