以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53818)

--  作者:zhangxl1964
--  发布时间:2014/7/16 9:42:00
--  目录树问题
老师:你好!
     对下面生成的目录树列表,要求进行多项选择,该如何修改代码?
\'生成数据表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 使用状态,出库单号 From {出库单目录}"
dt = cmd.ExecuteReader()
\'生成目录树
Dim tb1 As New DropTreeBuilder
tb.SourceTable = dt
tb.TreeCols = "使用状态|出库单号"
tb.SourceCols = "出库单号"
tb.ReceiveCols = "出库单号"
Tables("出库").Cols("出库单号").DropTree = tb.Build()

--  作者:Bin
--  发布时间:2014/7/16 9:44:00
--  
参考http://www.foxtable.com/help/topics/2478.htm
[此贴子已经被作者于2014-7-16 9:45:04编辑过]

--  作者:有点甜
--  发布时间:2014/7/16 9:44:00
--  

 没办法,这种目录树,只能单选。

 

 参考 http://www.foxtable.com/help/topics/2478.htm

 


--  作者:zhangxl1964
--  发布时间:2014/7/16 10:06:00
--  
多选目录树的的来源表,在没有加载时,可否从后台取得?
--  作者:Bin
--  发布时间:2014/7/16 10:14:00
--  
你1楼不就是在后台加载获取的么
--  作者:有点甜
--  发布时间:2014/7/16 10:14:00
--  

 可以,比如代码

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"产品|客户")