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

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