以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中的目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62683)

--  作者:blsu33
--  发布时间:2015/1/6 11:00:00
--  [求助]窗口中的目录树
老师,
   FOXTABLE的项目 AFTER OPEN prioect 录入命令
BaseMainform.Opacity = 0
BaseMainform.Visible = False

使用独立窗口为界面
 独立窗口中 after load 有调用递归函数 生成的目录树,我这边测试了一下,为什么这个独立窗口的目录树不能生成呢,这是为什么呢



--  作者:Bin
--  发布时间:2015/1/6 11:04:00
--  
你这是分别在问两个问题?

第一个问题是什么意思?

不能生成说明代码不对或者其他情况有异,上个例子看看.

--  作者:有点甜
--  发布时间:2015/1/6 11:09:00
--  
 呃,不生成,说明你的递归函数写错了啊
--  作者:blsu33
--  发布时间:2015/1/6 13:04:00
--  
麻烦二位老师了,帮忙改下,多谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树.rar



--  作者:Bin
--  发布时间:2015/1/6 14:14:00
--  
Select pg.SelectedIndex
        Case 0
case 0

去掉一个

--  作者:有点甜
--  发布时间:2015/1/6 14:23:00
--  

  不知道你想表达什么,代码都是没有错的。

 

  打开窗口A和窗口B都是可以生成目录树的啊。

 

  要往哪里生成目录树,就要引用那个目录树控件


--  作者:blsu33
--  发布时间:2015/1/6 14:36:00
--  
老师,
  页面里面的目录树没有在窗口打开的时候生成。

页面的目录树命令和窗口A、B的一样,所以,递归没有问题。
[此贴子已经被作者于2015-1-6 14:37:17编辑过]

--  作者:有点甜
--  发布时间:2015/1/6 14:37:00
--  

 无语,你要引用那个控件啊

 

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")


--  作者:Bin
--  发布时间:2015/1/6 14:39:00
--  
5楼我就和你说了.

你代码错误.

你连续两个 

case 0
case 0 
你代码写在第二个Case 0 里 是不会触发执行代码的.

你要去掉一个Case0 

--  作者:blsu33
--  发布时间:2015/1/6 14:45:00
--  
bin 老师,
去掉后,页面1可以显示,其他页面还是的不显示