private sub 文本框名_change() dim txtTemp as string txtTemp=文本框名.text me.列表框名.rowsource="select 字段名 from 表名 where 字段 like '*"& txtTemp &"*'" '此句为文本字段全模糊查询 me.列表框名.requery end sub |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2025-4-4 15:47 , Processed in 0.071169 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.