以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树的Index属性  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74598)

--  作者:whuan1027
--  发布时间:2015/9/15 10:04:00
--  目录树的Index属性

各位高手:

     我做了个目录树用于筛选数据,随着数据的增多,目录树的节点也越来越多,会出现“指定的参数已超出有效值的范围,参数名:index”的报错,请问有办法消除吗?我将生成目录树的代码写在了导航栏窗口的“Afterload”下。

   生成目录树代码:

Dim cmd1,cmd2,cmd3 As New SQLCommand
Dim dt1,dt2,dt3 As DataTable
cmd1.C
cmd1.CommandText = "SELECT DISTINCT status,property,pjname,pdname,pdmodel F rom {Pplan}"
dt1 = cmd1.ExecuteReader()
e.Form.Controls("TreeView-plan").BuildTree(dt1, "status|property|pjname|pdname|pdmodel")
e.Form.Controls("TreeView-plan").Nodes.insert("Node0","加载全部数据",0)
cmd2.C
cmd2.CommandText = "SELECT DISTINCT 项目名称,产品名称,产品型号 F rom {采购计划}"
dt2 = cmd2.ExecuteReader()
e.Form.Controls("TreeView-Buyplan").BuildTree(dt2, "项目名称|产品名称|产品型号")
e.Form.Controls("TreeView-Buyplan").Nodes.insert("Node0","加载全部数据",0)
cmd3.C
cmd3.CommandText = "SELECT DISTINCT status,pjname,pdname,pdmode F rom {workshopbook}"
dt3 = cmd3.ExecuteReader()
e.Form.Controls("TreeView-workshopbook").BuildTree(dt3, "status|pjname|pdname|pdmode")
e.Form.Controls("TreeView-workshopbook").Nodes.insert("Node0","加载全部数据",0)


--  作者:狐狸爸爸
--  发布时间:2015/9/15 11:33:00
--  

 用这个方法分析一下:

http://www.foxtable.com/help/topics/1485.htm

 

看看那一行代码出错。

 

搞不定的话,做个例子发上来