- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自行设计下拉目录树的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39766)
-- 发布时间：2013/9/1 10:50:00
-- [求助]自行设计下拉目录树的问题？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:列表项目_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
-- 发布时间：2013/9/1 22:55:00
--
没有数据源，暂时无法帮你测试。
-- 发布时间：2013/9/2 16:40:00
--
帮助]里下拉目录树只有二级目录树，现在要做三级或四级的目录树，怎么办？如例题
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:列表项目_201309011042.zip |
-- 发布时间：2013/9/2 16:48:00
--
没有数据源帮不了你.
-- 发布时间：2013/9/2 17:33:00
--
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
-- 发布时间：2013/9/2 23:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:列表项目_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