主题：菜单组合框中如何做出目录树

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("员工档案","部门|姓名")

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim tr As Row = Tables("日报表").Current
    Dim dr As DataRow = DataTables("员工档案").Find("部门 = '" & ps(0) & "' And 姓名 = '" & ps(1) & "'")
    If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("姓名") = dr("姓名")
        e.Form.DropDownBox.Value = tr("姓名") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树
End If

以上可在表格中做出目录树，但我想在菜单合框中也做出这个功能，现应该如何做。