不需要,因为可以三行代码搞定:
'生成目录树。For Each nd As WinForm.TreeNode In trv.AllNodes nd.iconfile = nd.datrow("图标列") Next