以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按条件生成目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80558)

--  作者:jygyyl
--  发布时间:2016/1/26 10:40:00
--  [求助]按条件生成目录树
请教老师,如何按条件生成目录树?比如只生成 HGB402 =  _UserDept 的目录树,以下代码如何修改?


Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT HGB402,HJYG003,楼院名称 Fro m {XWGHDH}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","HGB402","HJYG003", "楼院名称")

--  作者:Hyphen
--  发布时间:2016/1/26 10:51:00
--  
trv.BuildTree(dt, "HJYG003","HGB402 = \'" &  _UserDept & "\'", "楼院名称")
--  作者:Hyphen
--  发布时间:2016/1/26 10:51:00
--  
http://www.foxtable.com/help/topics/0893.htm