Foxtable(狐表)用户栏目专家坐堂 → 目录树管理表的问题


  共有2398人关注过本帖树形打印复制链接

主题:目录树管理表的问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
目录树管理表的问题  发帖心情 Post By:2016/7/29 14:18:00 [只看该作者]

请教老师,我看了帮助中的目录树管理表,想实现 在一个窗口中,左边根据需要的表 形成目录树后,点击表名,可在右边的SQLTABLE表中打开表

SQLTABLE 是不绑定任何表的,无论点击哪个表名,都在比如  窗口_Table1 中打开

窗口的AfterLoad事件代码设置为:

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim
nd As WinForm.TreeNode
nd = Trv.Nodes.Add(
"分类1","分类1")
nd.Nodes.Add(
"表A")
nd.Nodes.Add(
"表B")
nd.Nodes.Add(
"表C")
nd = Trv.Nodes.Add(
"分类2","分类2")
nd.Nodes.Add(
"表D")
nd.Nodes.Add(
"表E")



TreeView控件的NodeMouseClick事件代码设置应该怎样写????:

If e.Node.Level = 1 Then
    MainTable
= Tables(e.Node.Text)
End
If


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/29 14:57:00 [只看该作者]

If e.Node.Level = 1 Then
    Tables("窗口1_Table1").Fill("se lect * from {" & e.Node.Text & "}")
End If

 回到顶部