关于下拉目录树输入问题：

1     基本情况：

Table(“合同类别”)

Table(“合同台账”)

2  　目的：

希望利用Table(“合同类别”)的数据，建立下拉目录树窗口，在Table(“合同台账”).Col(“合同类型”)中调用该下拉目录树窗口，点击自动输入Col(“合同类型”)& Col(“一级合同类别”)& Col(“二级合同类别”)& Col(“三级合同类别”)

3    操作：

3.1    在Table(“合同类别”)中，新建一个窗口，名为“合同类别目录树”，窗口类型设置为“DropDownForm”；

3.2    该窗口中插入一个TreeView控件；

3.3    该窗口的的AfterLoad事件设置为：

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

　　　　trv.BuildTree("合同类别","合同类型名称|一级合同类别名称|二级合同类别名称|三级合同类别名称")

3.4    TreeView的NodeMouseClick事件代码设置为：

     If e.Node.Level = 3 Then

    Dim Vals() As String = e.Node.FullPath.Split("\\")

    Dim Filter As String = "[合同类型名称] = \'" & Vals(0) & "\' And [一级合同类别名称] = \'" & Vals(1) & "\' And [二级合同类别名称] = \'" & Vals(2) & "\' And [三级合同类别名称] = \'" & Vals(3) & "\'"

    Dim dr As DataRow = DataTables("合同类别").Find(Filter)

    Dim r As Row = Tables("合同台账").Current

    If dr IsNot Nothing Then

        r("合同类型") = dr("合同类型名称")

        r("一级合同类别") = dr("一级合同类别名称")

        r("二级合同类别") = dr("二级合同类别名称")

        r("三级合同类别") = dr("三级合同类别名称")

        e.Form.DropDownBox.Value = r("三级合同类别")

    End If

    e.Form.DropDownBox.CloseDropdown()

End If

3.5    在Table(“合同台账”)的CellButtonClick事件中设置：

Forms("合同类别目录树").Open()

e.Cancel = True

4     问题：

5.1    运行后，在Table(“合同台账”)内，没有反应，连下拉菜单标记都没有。

5.2    将窗口属性修改成“模式”，应用后窗口内的目录树正常：

5.3    命令窗口测试调用“模式”窗口，目录树也正常

5     请教高手问题出在哪里？