请教这个语句怎样写？

cyber-bobo

文本框：TEXT1
列值框：List0

以下语句应如何写：
if text1的值是在list0列值范围内的 then
msgbox "ok!"
end if

tz-chf

直接在列表框里选好了，何必做这种游戏！

cyber-bobo

谢谢，但这样写会有一个问题：
就是列值框中有n个记录消息框就会出现n次，需要频繁点击。
能否总体判断完后才出消息框呢？

baije

Dim i As Integer,Dim f As Boolean
        For i = 0 To Me.list0.ListCount - 1
        If Me.list0.Column(0, i)=me.text1  Then
            f=true
         End If
       Next i
if f=true then msgbox "OK"

andymark

dim Str as string
     Dim i As Integer
        For i = 0 To Me.list0.ListCount - 1
           str=str & Me.list0.Column(0, i) & ","
        Next i
     if len(str)>0 then
       str=left(str,len(str)-1)
     end if
通过LIKE 或IN 语句对str的值进行判断即可