专家坐堂-数据表数据生成导多航目录树问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据表数据生成导多航目录树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56645)

--  作者：wjliu
--  发布时间：2014/9/10 11:29:00
--  数据表数据生成导多航目录树问题
请教老师，根据表数据生成导航目录树只显示一个错在哪帮忙看看！
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2014-9-11 8:59:44编辑过]

--  作者：有点甜
--  发布时间：2014/9/10 11:39:00
--

代码

Dim cmd As new SQLCommand
cmd.CommandText = "select \'按分组\' as 分组, 省, 市, 区县, 乡镇, 街道居委会 from {客户分组} where 省 is not null"
cmd.CommandText &= " union select \'按等级\', 客户等级, null, null, null, null from {客户等级} where 客户等级 is not null"
Dim dt As DataTable = cmd.ExecuteReader
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "分组|省|市|区县|乡镇|街道居委会")

--  作者：wjliu
--  发布时间：2014/9/10 12:06:00
--

请教老师把上面的代码写到项目里出现下列错误请问是怎么回事

.NET Framework 版本：2.0.50727.5483
Foxtable 版本：2014.5.12.1
错误所在事件：
详细错误信息：
Microsoft Jet 数据库引擎找不到输入表或查询 \'~TMPCLP客户分组\'。确定它是否存在，以及它的名称的拼写是否正确。

--  作者：wjliu
--  发布时间：2014/9/10 12:08:00
--
数据表是有的

--  作者：wjliu
--  发布时间：2014/9/10 14:05:00
--
有老师帮忙解决问题不

--  作者：wjliu
--  发布时间：2014/9/10 14:13:00
--

详细错误信息：
Microsoft Jet 数据库引擎找不到输入表或查询 \'~TMPCLP客户分组\'。确定它是否存在，以及它的名称的拼写是否正确。

--  作者：有点甜
--  发布时间：2014/9/10 14:14:00
--

例子测试可以的。

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名字"
cmd.CommandText = "select \'按分组\' as 分组, 省, 市, 区县, 乡镇, 街道居委会 from {客户分组} where 省 is not null"
cmd.CommandText &= " union select \'按等级\', 客户等级, null, null, null, null from {客户等级} where 客户等级 is not null"
Dim dt As DataTable = cmd.ExecuteReader
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "分组|省|市|区县|乡镇|街道居委会")

--  作者：Bin
--  发布时间：2014/9/10 14:14:00
--
你没有指定数据源吧

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

--  作者：wjliu
--  发布时间：2014/9/10 15:20:00
--
谢谢老师用的是外部数据谢谢

--  作者：wjliu
--  发布时间：2014/9/10 15:47:00
--  建立多个目录树问题

请老师帮忙看看为什么导航中第三个目录树无法建立，代码哪里有问题，不吝赐教

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名字"
cmd.CommandText = "select \'按分组\' as 分组, 省, 市, 区县, 乡镇, 街道居委 from {客户分组} where 省 is not null"
cmd.CommandText &= " union select \'按等级\', 客户等级, null, null, null, null from {客户等级} where 客户等级 is not null"
cmd.CommandText &= " union select \'按来源\', 来源, null, null, null, null from {等级} where 来源 is not null"
cmd.CommandText &= " union select \'按状态\', 客户状态, null, null, null, null from {客户状态} where 客户状态 is not null"
Dim dt As DataTable = cmd.ExecuteReader
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "分组|省|市|区县|乡镇|街道居委")
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree(dt, "分组|省|市|区县|乡镇|街道居委")

Dim cmd1 As new SQLCommand
cmd1.ConnectionName = "数据源名字"
cmd1.CommandText = "select \'按分组\' as 分组, 营业区, 营业部, 营业组 from {成员分组} where 营业区 is not null"
cmd1.CommandText &= " union select \'按职级\', 职级, null, null, null from {职级} where 职级 is not null"
cmd1.CommandText &= " union select \'按来源\', 来源, null, null, null from {等级} where 来源 is not null"
cmd1.CommandText &= " union select \'按学历\', 学历, null, null, null from {学历} where 学历 is not null"
cmd1.CommandText &= " union select \'按类型\', 成员类型, null, null, null from {成员类型} where 成员类型 is not null"
Dim dt1 As DataTable = cmd1.ExecuteReader
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv2.BuildTree(dt1, "分组|营业区|营业部|营业组")
注：
前两个目录树可以建立第三个提示错误所在事件：
详细错误信息：
在联合查询中所选定的两个数据表或查询中的列数不匹配

[此贴子已经被作者于2014-9-10 20:23:13编辑过]