Foxtable(狐表)用户栏目专家坐堂 → 判断数组包含


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

主题:判断数组包含

帅哥哟,离线,有人找我吗?
delxkjhgq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1013 威望:0 精华:0 注册:2012/11/6 14:55:00
判断数组包含  发帖心情 Post By:2013/11/15 16:53:00 [显示全部帖子]

有没有直接判断一个数组是否包含一个数,不要用FOR NEXT.谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
delxkjhgq
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1013 威望:0 精华:0 注册:2012/11/6 14:55:00
  发帖心情 Post By:2013/11/15 16:55:00 [显示全部帖子]

好的,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
delxkjhgq
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1013 威望:0 精华:0 注册:2012/11/6 14:55:00
  发帖心情 Post By:2013/11/15 17:30:00 [显示全部帖子]

请大侠帮忙看下红色的判断不了,要如何写了?

Dim gg As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If gg.text<> "" Then
    Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
    For Each cc As WinForm.TreeNode In trv1.AllNodes
        Dim dr As DataRow
        dr = DataTables("目录树").find("[目录] = '" & cc.text & "'")
        Dim v1() As String = dr("姓名").Split(",")
        Dim hh As New List(Of String)
        hh.AddRange(v1) 
        If cc.Checked = True Then              
            If hh.Contains(cc.text)= False Then
                If dr("姓名")= Nothing Then
                    dr("姓名")= gg.text & ","
                Else
                    dr("姓名")= dr("姓名") & gg.text & ","
                End If
            End If
        End If
    Next
End If


 回到顶部
帅哥哟,离线,有人找我吗?
delxkjhgq
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1013 威望:0 精华:0 注册:2012/11/6 14:55:00
  发帖心情 Post By:2013/11/15 17:35:00 [显示全部帖子]

晓的了,谢谢

 回到顶部