目录树管理表,现在按下面的代码是两级目录树,如果在增加一级该怎么改?
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
nd = Trv.Nodes.Add("基础信息","基础信息")
If Tables("事业部人员清单").visible = True
nd.Nodes.Add("事业部人员清单")
End If
If Tables("人员信息表").visible = True
nd.Nodes.Add("人员信息表")
End If
nd = Trv.Nodes.Add("合同信息","合同信息")
If Tables("合同台账").visible = True
nd.Nodes.Add("合同台账")
End If
If Tables("合同评审").visible = True
nd.Nodes.Add("合同评审")
End If