以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数组比对求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84473)
--  作者：浙江仔
--  发布时间：2016/5/3 14:06:00
--  [求助]数组比对求助
我想比对两组数组

    Dim nms() As String = {"姓名","身份证号码","单位"}

    Dim nms2() As String = {"身份证号码","单位","A","B","姓名"}


怎么知道nms2() 是否都包含 nms() ? 
--  作者：大红袍
--  发布时间：2016/5/3 14:10:00
--  
 

Dim nms() As String = {"姓名","身份证号码","单位"}
Dim nms2() As String = {"身份证号码","单位","A","B","姓名"}
Dim iscontains As Boolean = True

For Each s As String In nms
    If array.indexof(nms2, s) < 0 Then
        iscontains = False
        Exit For
    End If
Next
msgbox(iscontains)
--  作者：浙江仔
--  发布时间：2016/5/3 15:11:00
--  
谢谢，我来消化一下