以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口目录树绑定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26052)

--  作者:良才
--  发布时间:2012/11/23 10:14:00
--  窗口目录树绑定

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.zip


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20121123100852.png
图片点击可在新窗口打开查看


2012年(春)、2012年(秋)、班级和姓名要表中生存。代码应该怎样写?

请高手指点。

[此贴子已经被作者于2012-11-23 10:22:04编辑过]

--  作者:lin_hailun
--  发布时间:2012/11/23 10:53:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.foxdb


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

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


[此贴子已经被作者于2012-11-23 10:54:41编辑过]

--  作者:良才
--  发布时间:2012/11/23 11:06:00
--  

谢谢!我是想像这样样子。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20121123110341.png
图片点击可在新窗口打开查看

--  作者:lin_hailun
--  发布时间:2012/11/23 11:14:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20121123110741.png
图片点击可在新窗口打开查看

或者,自己用代码设置一下。

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

--  作者:良才
--  发布时间:2012/11/23 11:30:00
--  
代码该怎样写?请指点。
--  作者:lin_hailun
--  发布时间:2012/11/23 11:52:00
--  
比如

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each node As Object In tr.AllNodes
     Select Case Node.Level
         Case 0
             node.Ico nFile = "C:\\1.ico"
         Case 1
             node.Ico nFile = "C:\\2.ico"
         Case 2
             node.Ico nFile = "C:\\3.ico"
     End Select
Next

[此贴子已经被作者于2012-11-23 11:54:17编辑过]