# Re: 小v，这个方法我已试过了，不行的....

Posted by andyLin on September 20, 1999 at 19:10:21:

In Reply to: 小v，这个方法我已试过了，不行的.... posted by 新手 on September 20, 1999 at 17:09:19:

: : : 若Text1.text之资料不在有9笔资料的List1中，就显示MsgBox。
: : dim i as integer,IsExist as boolean
: : IsExist=false
: : for i=0 to List1.ListCount - 1
: : if List1.List(i)=Text1.text then
: : IsExist=true
: : exit for
: : end if
: : next
: : if not IsExist then
: : msgbox "Not Found!"
: : end if

: 这样不对，若第一笔的时候就为True会跳出了For，后面的没比较到，在中间也是一样，一定要全部读完后比较才正确。

我将程式改为
: dim i as integer,IsExist as boolean
:dim ErrStr as string
: IsExist=false
: for i=0 to List1.ListCount - 1
: if List1.List(i)=Text1.text then
: errStr=Errstr & List1.List(i) & ","
: end if
: next
: if not IsExist then
: msgbox errstr & " Not Found!"
: end if

Follow Ups: