7,763
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
silverblade 2004-05-06
- 打赏
- 举报
用LIKE运算符最方便，但不保证性能
if text1.text like [abc] then
if text1.text like [abc] then
shortppsy 2004-05-06
- 打赏
- 举报
晕，不好意思，我看错了
online 2004-05-06
- 打赏
- 举报
Private Sub Command2_Click()
If Combo1.Text = "单价" Or Combo1.Text = "实际购价" Then
MsgBox ("good")
End If
End Sub
If Combo1.Text = "单价" Or Combo1.Text = "实际购价" Then
MsgBox ("good")
End If
End Sub
射天狼 2004-05-06
- 打赏
- 举报
我晕`~~~~~``
shortppsy 2004-05-06
- 打赏
- 举报
dim temp as string
temp=str(combo1l.text)
If Combo1.Text = "单价" Or "实际购价" Then
MsgBox ("good")
End If
temp=str(combo1l.text)
If Combo1.Text = "单价" Or "实际购价" Then
MsgBox ("good")
End If
TreelightLSH 2004-05-06
- 打赏
- 举报
我的程序如下:
If Combo1.Text = "单价" Or "实际购价" Then
MsgBox ("good")
End If
会提示"类型不匹配"
如何解决?
If Combo1.Text = "单价" Or "实际购价" Then
MsgBox ("good")
End If
会提示"类型不匹配"
如何解决?
hackate 2004-05-06
- 打赏
- 举报
哈哈，可能很多人开始都写成
if text1.text="a" or "b" or "c"
这样是不行的，呵呵，偶那时候就笨得这样啊，搞了半天，一想，好像不能这样啊，哈哈，
楼上大狭们的方法就对了都
if text1.text="a" or "b" or "c"
这样是不行的，呵呵，偶那时候就笨得这样啊，搞了半天，一想，好像不能这样啊，哈哈，
楼上大狭们的方法就对了都
haipingma 2004-05-06
- 打赏
- 举报
用or就可以了
Mi_Bo 2004-05-06
- 打赏
- 举报
If text1.text="a" or text1.text="b" or text1.text="c" then ……
tztz520 2004-05-06
- 打赏
- 举报
不好意思,按错键发了出去.
If Switch(Text1.Text = "a", 1, Text1.Text = "b", 1, Text1.Text = "c", 1, 1 = 1, 0) = 1 Then
MsgBox "通过"
Else
MsgBox "不能通过"
End If
If Switch(Text1.Text = "a", 1, Text1.Text = "b", 1, Text1.Text = "c", 1, 1 = 1, 0) = 1 Then
MsgBox "通过"
Else
MsgBox "不能通过"
End If
Wenking003 2004-05-06
- 打赏
- 举报
使用逻辑操作符 Or
tztz520 2004-05-06
- 打赏
- 举报
可能有很多种方法,楼上的比
chinaren502 2004-05-06
- 打赏
- 举报
Private Sub Command1_Click()
If Text1.Text = "a" Or Text1.Text = "b" Or Text1.Text = "c" Then
.......
Else
.........
End If
End Sub
If Text1.Text = "a" Or Text1.Text = "b" Or Text1.Text = "c" Then
.......
Else
.........
End If
End Sub
pigpag 2004-05-06
- 打赏
- 举报
原来已经写过了……
这是个提升代码可读性的方案，推荐
这是个提升代码可读性的方案，推荐
shortppsy 2004-05-06
- 打赏
- 举报
or
pigpag 2004-05-06
- 打赏
- 举报
Select Case Text1.Text
Case "a", "b", "c"
' 是
...
End Select
Case "a", "b", "c"
' 是
...
End Select
online 2004-05-06
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "a" Or Text1.Text = "b" Or Text1.Text = "c" Then
MsgBox "通过"
Else
MsgBox "没有"
End If
End Sub
Private Sub Command1_Click()
If Text1.Text = "a" Or Text1.Text = "b" Or Text1.Text = "c" Then
MsgBox "通过"
Else
MsgBox "没有"
End If
End Sub
d1ll 2004-05-06
- 打赏
- 举报
观摩中。。。。。
羡慕中。。。。
^^
羡慕中。。。。
^^
986753421 2004-05-06
- 打赏
- 举报
好像还没人写下面的方法：
select case text1.text
case "a","b","c"
msgbox "呵呵"
end select
select case text1.text
case "a","b","c"
msgbox "呵呵"
end select
northwolves 2004-05-06
- 打赏
- 举报
呵呵，
Private Sub Command1_Click()
MsgBox UBound(Filter(Array("a", "b", "c"), Text1.Text)) = "-1" '不包含
End Sub
Private Sub Command1_Click()
MsgBox UBound(Filter(Array("a", "b", "c"), Text1.Text)) = "-1" '不包含
End Sub
加载更多回复（5）
