Foxtable(狐表)用户栏目专家坐堂 → 窗口控件表单目录自动生成问题


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

主题:窗口控件表单目录自动生成问题

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


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
窗口控件表单目录自动生成问题  发帖心情 Post By:2020/11/13 13:26:00 [只看该作者]

在窗口控件中 根据设计好的表单生成目录,然后点击并表单名并跳转到相应的表单.
如何实现.谢谢
看过教程有这个案例,自己找不到了,请大神指点一下.

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110773 积分:563797 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/13 13:52:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
夜点蚊香
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
  发帖心情 Post By:2020/11/13 14:15:00 [只看该作者]

不是这个,控件打开后,自动获取当前所有表的表名称,然后点击表名称切换到表单.

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110773 积分:563797 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/13 14:21:00 [只看该作者]

没有印象。

如果要获取所有表名参考:http://www.foxtable.com/webhelp/topics/0365.htm

 回到顶部
帅哥哟,离线,有人找我吗?
夜点蚊香
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
问题解决了.谢谢  发帖心情 Post By:2020/11/13 15:10:00 [只看该作者]

在窗口增加  navbar1控件, 在其中添加表单标题框.在表单标题框里添加TreeView控件,

点击表单标题框的时候 自动加载当前表单,生成目录树.


For Each dt As DataTable In DataTables
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    Dim nd As WinForm.TreeNode
    nd = Trv.Nodes.Add(dt.name)
Next
控件里目录树出来了

设置点击跳转出了问题

TreeView控件的NodeMouseClick事件代码设置为:

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


现在点击目录树的表单名称,没有跳转.请帮忙看看


问题解决了,谢谢. 节点改成0就好了.抄的代码没有看仔细.

If e.Node.Level = 0

[此贴子已经被作者于2020/11/13 15:26:29编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110773 积分:563797 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/13 15:38:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dt As DataTable In DataTables
    trv.Nodes.Add(dt.name)
Next

 回到顶部