[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有9517人关注过本帖树形打印复制链接主题：[求助]

云淡风轻

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3022 威望：0 精华：0 注册：2012/1/19 10:11:00

[求助]

Post By：2012/8/21 13:58:00 [只看该作者]

导航窗口SelectedIndexedChanged中代码如下（部分）：

以下内容为程序代码:

1 Select Case Bar.SelectedPage.ButtonText
2 Case "案卷库"
3 cmd.CommandText = "SELECT DISTINCT 分类号,年度 From {室藏案卷库}"
4 dt = cmd.ExecuteReader()
5 tv =e.Form.Controls("TreeView1")
6 MainTable = Tables("室藏案卷库")
7 Tables("室藏案卷库").AutoSizeCols()
8 tv.Nodes.Clear
9 tv.BuildDataTree(dt, "", "分类号|年度")
10 nd = tv.Nodes.Insert("加载全部记录","加载全部记录",0)
11 End Select

急：为什么分类号或年度值为NULL的目录树中没有显示？

怎么能使那些值为NULL的能显示在目录树中？

[此贴子已经被作者于2012-8-21 13:59:02编辑过]

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/8/21 14:53:00 [只看该作者] 用户已被锁定

云淡风轻

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3022 威望：0 精华：0 注册：2012/1/19 10:11:00

Post By：2012/8/21 15:41:00 [只看该作者]

我用的是动态加载，一开始是不加载任何数据的，目录树是通过读取后台数据库生成的，请高手解答如何做到

[此贴子已经被作者于2012-8-21 15:41:38编辑过]

muhua	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/8/21 16:17:00 [只看该作者] 用户已被锁定

云淡风轻

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3022 威望：0 精华：0 注册：2012/1/19 10:11:00

Post By：2012/8/21 16:28:00 [只看该作者]

不能直接加载所有数据的，数据有几十万条，直接加载的话会很卡很卡的，所以用动态加载，而且只有值为NULL的那批数据目录树中无法生成空结点，字段值非NULL什么也没有的是可以生成空结点的，烦啊

woiz

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1021 威望：0 精华：0 注册：2012/1/18 14:40:00

Post By：2012/8/21 16:56:00 [只看该作者]

设connect了吗？

woiz

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1021 威望：0 精华：0 注册：2012/1/18 14:40:00

Post By：2012/8/21 16:57:00 [只看该作者]

记得设置链接名称

如果SQLCommand操作的是外部数据源，那么一定要设置其ConnectionName属性，指定外部数据源名称：

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

很多用户，包括我自己，都会犯这个错误，明明代码正确，却没有结果，折腾半天，只是因为没有设置数据源名称而已。

muhua	小大 8楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/8/21 16:59:00 [只看该作者] 用户已被锁定

云淡风轻

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3022 威望：0 精华：0 注册：2012/1/19 10:11:00

Post By：2012/8/21 17:32:00 [只看该作者]

但并不是所有的表都含有NULL，手工加结点不符合实际，还有其他方法吗？

connect我有的，这里只是展示部分代码

下一主题 >> << 上一主题

主题：[求助]