索引不是出现字符就行，是要从第一个字符开始就符合
所以不是InStr(Me.List1.List(i), Text1.Text) > 0
要改成InStr(Me.List1.List(i), Text1.Text) =1
你不应该用Instr，这是包含的意思，应该把
If InStr(Me.List1.List(i), Text1.Text) > 0 Then
改为
If Mid(me.list1.list(i),1,len(text1.text))=text1.text then
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024