以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92559)
--  作者：夕阳春
--  发布时间：2016/11/7 11:42:00
--  [原创]
老师您好！
    我在窗口增加了一个目录树控件，并在窗口AfterLoad事件中编写
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("报名库","科类|学校|姓名")
trv.Nodes.Insert("显示所有行",0)代码，预览时可就是不显示目录树，
不知错在哪里？请老师指点。
--  作者：有点蓝
--  发布时间：2016/11/7 11:56:00
--  
报名库数据是怎么样的？截图看看

科类和学校必须有对应关系
--  作者：夕阳春
--  发布时间：2016/11/7 17:36:00
--  
老师您好！前面的问题已解决，非常感谢您的关心和帮助。下面是新的问题，恳请帮助。
    我在窗口增加了一个分区面板，在右分区插入一个报名库表，并在窗口AfterLoad事件中编写
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("报名库","科类|学校|姓名")
trv.Nodes.Insert("显示所有行",0)代码；
在左分区插入一个TreeView(目录树)，并在目录树的NodeMouseDoubleClick事件中编写
Dim Filter As String
If e.Node.Text <> "显示所有行" Then
    Dim dr As DataRow = e.Node.DataRow 
    Select Case e.Node.Level
        Case 0
            Filter = "[科类] = \'" & dr("科类") & "\'"
        Case 1
            Filter = "[科类] = \'" & dr("科类") & "\' And [学校] = \'" & dr("学校") & "\'"
        Case 2
            Filter = "[科类] = \'" & dr("科类") & "\' And [学校] = \'" & dr("学校") & "\' And [姓名] = \'" & dr("姓名") & "\'"
    End Select
End If
Tables("报名库").Filter = Filter 代码
预览时不显示任何内容，
不知错在哪里？请老师指点。
报名库数据表截图在附件。
--  作者：夕阳春
--  发布时间：2016/11/7 17:40:00
--  
老师您好！前面的问题已解决，非常感谢您的关心和帮助。下面是新的问题，恳请帮助。
    我在窗口增加了一个分区面板，在右分区插入一个报名库表，并在窗口AfterLoad事件中编写
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("报名库","科类|学校|姓名")
trv.Nodes.Insert("显示所有行",0)代码；
在左分区插入一个TreeView(目录树)，并在目录树的NodeMouseDoubleClick事件中编写
Dim Filter As String
If e.Node.Text <> "显示所有行" Then
    Dim dr As DataRow = e.Node.DataRow 
    Select Case e.Node.Level
        Ca
此主题相关图片如下：xbhy)vyi}h0$@msifkws80.png
按此在新窗口浏览图片
se 0
            Filter = "[科类] = \'" & dr("科类") & "\'"
        Case 1
            Filter = "[科类] = \'" & dr("科类") & "\' And [学校] = \'" & dr("学校") & "\'"
        Case 2
            Filter = "[科类] = \'" & dr("科类") & "\' And [学校] = \'" & dr("学校") & "\' And [姓名] = \'" & dr("姓名") & "\'"
    End Select
End If
Tables("报名库").Filter = Filter 代码
预览时不显示任何内容，
不知错在哪里？请老师指点。

[此贴子已经被作者于2016/11/7 18:06:15编辑过]
--  作者：有点蓝
--  发布时间：2016/11/7 17:47:00
--  
窗口表是不是副本
Tables("窗口1_Table1").Filter = Filter