主题：[求助]调用窗口

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

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事件代码设置为：

4     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

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

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

e.Cancel = True

5     问题：

5.1    运行后没有反应。

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

 

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

 

 

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

另外，如果在窗口管理里面应用窗口，则可以输入，但会报错。

 请打包上传出错的文件，且不要重复发帖。