| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 关于空值判断的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74411) |
| -- 作者：huozhe -- 发布时间：2015/9/10 12:42:00 -- 关于空值判断的问题 如果政治面貌列有空值，出现未将对象引用设置到对象的实例的提示，请教再哪里加判断。 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编辑过]
|
| -- 作者：Hyphen -- 发布时间：2015/9/10 14:21:00 -- s = DataTables("人员基本信息").GetComboListString(Value,Value & " is not null") |
| -- 作者：大红袍 -- 发布时间：2015/9/10 15:14:00 -- s = DataTables("人员基本信息").GetComboListString(Value) Values1 = s.split("|")
改成
s = DataTables("人员基本信息").GetComboListString(Value,Value & " is not null")
If s > Nothing Then
Values1 = s.split("|")
For i As Integer = 0 To Values1.Length-1
End If
|
| -- 作者：huozhe -- 发布时间：2015/9/10 16:09:00 -- 谢谢老师 成功！ |