主题：[求助]列表项目、目录树列表在自建的窗口中怎么没有下拉功能？

窗口表事件

窗口与控件事件

年月_AfterLoad

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("年月","年|月")

年月_Button1_Click

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("年月","年|月")

年月_TreeView1_NodeMouseClick

If e.Node.Level = 1 Then '如果单击的是第二层节点

    Dim tr As Row = Tables("人力档案").Current

    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

    tr("缴费_起始年月") = dr("年月") '——————请看窗口1这句代码，点选第二层节点后，只能要么在"起始年月"字段填入，

 'tr("缴费_停止年月") = dr("年月") '——————要么改代码在"停止年月"字段填入，不可能两个字段同时填入同一年月吧？

 'e.Form.DropDownBox.Value = tr("缴费_起始年月") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

      e.Form.DropDownBox.CloseDropdown()

End If