专家坐堂-关于select case 的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于select case 的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188678)

--  作者：bailing
--  发布时间：2023/10/10 17:58:00
--  关于select case 的问题

Dim s As String = """张三"",""李四"""
Dim s2 As String = "张三"
Select Case s2
Case s
MessageBox.show(1)
Case Else
output.show(2)
End Select
老师好，这个代码执行出来为什么是输出2

--  作者：有点蓝
--  发布时间：2023/10/10 20:23:00
--
s=s2的时候才会输出1。直接说要做什么功能吧

--  作者：bailing
--  发布时间：2023/10/11 9:21:00
--

Dim s2 As String = "张三"
Select Case s2
Case "张三","李四"
MessageBox.show(1)
Case Else
output.show(2)
End Select

这样就可以输出1，需要判断的范围 “张三，李四” 会经常变化，所以想把它放在词典表里，方便修改；但是从词典表里读过来的那个字符串好像不是很好使

--  作者：有点蓝
--  发布时间：2023/10/11 9:44:00
--
Dim Names As New List(Of String)
Names.Add("张三")
Names.Add("李四")
Names.Add("王五")

if Names.Contains("张三") orelse Names.Contains("李四")
MessageBox.show(1)
else
MessageBox.show(2)
end if

--  作者：bailing
--  发布时间：2023/10/11 9:46:00
--
好嘞，谢谢，不过还是觉得select case 那样好点，哈哈