主题：[求助]自行设计下拉目录树的问题？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列表项目_201309011042.zip

[帮助]里下拉目录树只有二级目录树，现在要做三级或四级的目录树，怎么办？如例题 

窗口1的AfterLoad事件设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("清单模板","省|项目拚音|收费项目")

在  TreeView(目录树)的NodeMouseClick事件代码如何设置？请教我啊：

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("省")

        tr("收费项目") = dr("收费项目")

        tr("项目ID") = dr("项目ID")

        tr("项目类别") = dr("项目类别")

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

    End If

    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树

End If

 

 没有数据源，暂时无法帮你测试。

帮助]里下拉目录树只有二级目录树，现在要做三级或四级的目录树，怎么办？如例题 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列表项目_201309011042.zip

没有数据源帮不了你.

If e.Node.Level = 2 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("省")

         tr("项目拚音") = dr("项目拚音")

        tr("收费项目") = dr("收费项目")

        tr("项目ID") = dr("项目ID")

        tr("项目类别") = dr("项目类别")

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

    End If

    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树

End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列表项目_201309022346.zip

窗口1的AfterLoad事件设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("清单模板","省|项目拚音|收费项目")

If e.Node.Level = 2 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("省")

         tr("项目拚音") = dr("项目拚音")

        tr("收费项目") = dr("收费项目")

        tr("项目ID") = dr("项目ID")

        tr("项目类别") = dr("项目类别")

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

    End If

    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树

End If