以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 怎样判断某个数据是否存在于数组中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77507)
--  作者：15986720145
--  发布时间：2015/11/19 14:29:00
--  [求助] 怎样判断某个数据是否存在于数组中
EG: 
dim a as integer
dim b() as interger = {1,2,3,……,9}
怎么判断a是不是b()中的数据，有没有直接的表达式
--  作者：15986720145
--  发布时间：2015/11/19 14:31:00
--  
contains ?
--  作者：15986720145
--  发布时间：2015/11/19 14:53:00
--  
另： 集合的数据类型有哪些
--  作者：y2287958
--  发布时间：2015/11/19 14:56:00
--  
用Array.IndexOf
或转换成集合
--  作者：大红袍
--  发布时间：2015/11/19 15:27:00
--  

比如

 

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

 

End If
--  作者：2900819580
--  发布时间：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
--  作者：大红袍
--  发布时间：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
--  发布时间：2016/8/9 20:32:00
--  
集合在全局代码中如何声明，我做了public ls As new List(Of String)

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

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

[此贴子已经被作者于2016/8/9 20:34:20编辑过]
--  作者：大红袍
--  发布时间：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