Office中国论坛/Access中国论坛

标题: 请教这个语句怎样写？ [打印本页]

作者: cyber-bobo 时间: 2007-11-16 19:29
标题: 请教这个语句怎样写？
文本框：TEXT1
列值框：List0

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

作者: tz-chf 时间: 2007-11-17 09:33
直接在列表框里选好了，何必做这种游戏！

作者: cyber-bobo 时间: 2007-11-17 09:40
谢谢，但这样写会有一个问题：
就是列值框中有n个记录消息框就会出现n次，需要频繁点击。
能否总体判断完后才出消息框呢？

作者: baije 时间: 2007-11-17 10:07
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 时间: 2007-11-17 10:17
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的值进行判断即可

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)