请大侠帮忙看下红色的判断不了,要如何写了?
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