- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态加载--目录树--出错提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19525)
-- 发布时间：2012/5/13 0:20:00
-- 动态加载--目录树--出错提示
窗口中一个目录树(TreeView),窗口的AfterLod事件代码设为
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.BuildDataTree(dt, "","合同号")
trv.Nodes.Insert("加载所有数据",0)
打开窗口后，提示
此主题相关图片如下：1.jpg
点击确定后，出现以下提示
此主题相关图片如下：2.jpg
然后窗口打开，目录树显示空白，
是哪里出了问题啊？
-- 发布时间：2012/5/13 0:41:00
--
确定你的表名、列名是否正确，我测试正常。
-- 发布时间：2012/5/13 1:04:00
--
奇怪的是 表名、列名都是确定是正确的
-- 发布时间：2012/5/13 2:26:00
--
要设定数据库名
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 合同号 From {定单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","合同号")
trv.Nodes.Insert("加载所有数据",0)
-- 发布时间：2012/5/13 2:27:00
--
cmd.ConnectionName = "指定的数据库名"
[此贴子已经被作者于2012-5-13 2:29:24编辑过]