# Re: 如何比较?

Posted by 小v on September 20, 1999 at 12:31:08:

In Reply to: 如何比较? posted by 新手 on September 20, 1999 at 10:50:05:

: 若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

Follow Ups:

- 小v，这个方法我已试过了，不行的.... 新手 17:09:19 9/20/99 (2)
  - Re: 小v，这个方法我已试过了，不行的.... 小v 13:50:41 9/21/99 (0)
  - Re: 小v，这个方法我已试过了，不行的.... andyLin 19:10:21 9/20/99 (0)