如果政治面貌列有空值,出现未将对象引用设置到对象的实例的提示,请教再哪里加判断。
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nde As WinForm.TreeNode
Dim s As String
Dim Values1() As String
Dim Values As New List(Of String)
Dim Value As String
Values.Add("政治面貌")
For Each Value In Values
trv.Nodes.Add(Value)
trv.SelectedNode = trv.Nodes(Value)
s = DataTables("人员基本信息").GetComboListString(Value)
Values1 = s.split("|")
For i As Integer = 0 To Values1.Length-1
trv.SelectedNode.Nodes.Add(Values1(i))
trv.SelectedNode.Nodes(Values1(i)).Ic
Next
Next
[此贴子已经被作者于2015/9/10 12:44:32编辑过]