不知道为何报错了,感觉没啥问题啊?
表a结构和数据 编码 名称 父编码
001 文件1 Root
002 文件2 001
003 文件3 002
004 文件4 Root
窗口中调用
Functions.Execute("com创建目录树","Root","共享文件夹","")
函数【com创建目录树】
Dim TreeView1 As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim strNewNodeCode As String = args(0)
Dim strNewNodeName As String = args(1)
Dim strFatherNodeCode As String = args(2)
Dim cmd As New SQLCommand
cmd.ConnectionName = “连接1”
Dim dt As DataTable
Dim strFilter As String
Dim dr As DataRow
If strNewNodeCode = "Root" Then
If TreeView1.nodes.Contains(strNewNodeCode) = False Then TreeView1.nodes.Add(strNewNodeCode,strNewNodeCode,"floder.png") '建第一级目录
Else
If TreeView1.nodes(strFatherNodeCode).nodes.Contains(strNewNodeCode) = False Then '此处报错 未将对象引用设置到对象的实例。
TreeView1.nodes(strFatherNodeCode).nodes.Add(strNewNodeCode,strNewNodeCode,"floder.png") '建当前目录
End If
End If
strFilter = " where 父编码 = '" & strNewNodeCode & "'" '建当前目录的全部子目录
cmd.CommandText = "sele ct 编码,名称,父编码 from 表a " & strFilter
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
Functions.Execute("com创建目录树",dr1("编码"),dr1("名称"),strNewNodeCode)
Next