Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 怎样判断某个数据是否存在于数组中


  共有2856人关注过本帖树形打印复制链接

主题：[求助] 怎样判断某个数据是否存在于数组中
帅哥哟，离线，有人找我吗？
15986720145
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：1243 威望：0 精华：0 注册：2015/8/7 16:22:00 		[求助] 怎样判断某个数据是否存在于数组中  发帖心情 Post By：2015/11/19 14:29:00 [只看该作者]

EG: 
dim a as integer
dim b() as interger = {1,2,3,……,9}
怎么判断a是不是b()中的数据，有没有直接的表达式
 回到顶部
帅哥哟，离线，有人找我吗？
15986720145
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：1243 威望：0 精华：0 注册：2015/8/7 16:22:00 		  发帖心情 Post By：2015/11/19 14:31:00 [只看该作者]

contains ?

 回到顶部
帅哥哟，离线，有人找我吗？
15986720145
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：1243 威望：0 精华：0 注册：2015/8/7 16:22:00 		  发帖心情 Post By：2015/11/19 14:53:00 [只看该作者]

另： 集合的数据类型有哪些

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4648 积分：33890 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2015/11/19 14:56:00 [只看该作者]

用Array.IndexOf
或转换成集合
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/19 15:27:00 [只看该作者]

比如

 

Dim ary() as string = {"第一列","第二列","第三列"}
If Array.IndexOf(ary, "第一列") > -1 Then

 

End If
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2016/8/9 20:02:00 [只看该作者]

主题最新回顾(发布时间：2015/11/19 15:27:00)
--  作者：大红袍 
--  

比如

 

Dim ary() as string = {"第一列","第二列","第三列"}
If Array.IndexOf(ary, "第一列") > -1 Then

 

End If


If Array.IndexOf(ary, "第一列") > -1 Then

 如梦条件为真，如果将第一列从数组从清除出来

得到： ary()= {"第二列","第三列"}

然后再加上第四列：

得到 ary()= {"第二列","第三列"，”第四列“}

End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/9 20:25:00 [只看该作者]

直接用集合

 

Dim ary() As String = {"第一列","第二列","第三列"}
Dim ls As new List(Of String)
ls.AddRange(ary)

If ls.Contains("第一列") Then
    ls.Remove("第一列")
    ls.Add("第四列")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2016/8/9 20:32:00 [只看该作者]

集合在全局代码中如何声明，我做了public ls As new List(Of String)

可是没有办法转递，也就是在其它窗口没办法用到is

显示编译错误：“V”  是“Private”

[此贴子已经被作者于2016/8/9 20:34:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/9 21:03:00 [只看该作者]

全局代码

 

public ls As new List(Of String)

 

赋值代码

 

Dim ary() As String = {"第一列","第二列","第三列"}

ls.Clear
ls.AddRange(ary)

If ls.Contains("第一列") Then
    ls.Remove("第一列")
    ls.Add("第四列")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04602 秒, 4 次数据查询