Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim stra As String = "|" & DataTables("员工资料").GetComboListString("姓名","分配任务组别 = '深化设计'","") & "|"
For Each dr As DataRow In DataTables("室内设计项目").DataRows
For Each s As String In dr("深化设计完成时间节点_负责人").split(",")
If s > "" AndAlso stra.Contains("|" & s & "|") AndAlso trv.Nodes.Contains(s) = False Then
trv.nodes.Add(s)
End If
Next
Next