以文本方式查看主题

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

--  作者:douglas738888
--  发布时间:2017/5/5 17:43:00
--  创建下拉目录树问题

请教老师,下面代码是写在Afteropenproject, 但是没有在“个人主表.个人副表”的因子名称列生成下拉目录树,也没有小三角下拉标志,是否还要在对应的TABLE表属性中写什么代码?

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C onnectionName =
cmd.C ommandText = "SELECT DISTINCT 因子专业,因子名称 F  rom {因子库主表}"
dt = cmd.ExecuteReader()
\'生成目录树
Dim tb As New DropTreeBuilder
tb.SourceTable = dt
tb.TreeCols = "因子专业|因子名称"
tb.SourceCols = "因子专业|因子名称"
tb.ReceiveCols = "因子专业|因子名称"
Tables("个人主表.个人副表").Cols("因子名称").DropTree = tb.Build()


--  作者:有点蓝
--  发布时间:2017/5/5 20:20:00
--  
测试没有问题。上例子说明