主题：希望通过当前列名自动生成目录树

调函数用的时候也传入列名

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
dim colName  as string = Args(2)

For Each dr As DataRow In dt.Select("参数描述 = '" & colName &"'")