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

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