我学ACCESS11——这种窗体是怎么做的。

简

在本站下载的一个管理系统，在这个窗体中，其左边部分是怎么做呢？

我看不到它的源代码。：（

一根筋

呵呵，我计划把当前一个工作完成后，花时间学习Treeview。但又有个业余培训要考试，看来只有再做安排。
但本帖是学习节点控件的经典好帖，楼主几乎把初学节点者所关心的问题都涉及了。但愿下回我开始学时能很快找到本帖。。。呵呵

简

我真的想解决这个问题，为什么没有人回答呢~~~~
郁闷……

简

看了那么多例子，分析了那么些代码，自己套用了来，还是不得行。现把我的例子上传上来，请版主和大伙儿给我讲讲，分析一下原因。

在调试时，在这一行上，即： Set sySubRecSet = syDB.OpenRecordset(syRecSet("strRecSet"))出错。我不知道OpenRecordset的语法格式，只是从字面上推测，应该是打开记录集并进行设置，是吗？

这段代码：  Set syRecSet = syDB.OpenRecordset("SELECT * FROM Tab外协详细信息")
我是套用原代码修改的，它是什么意思呢？当我把它也改为Set sySubRecSet = syDB.OpenRecordset(syRecSet("strRecSet"))时，在With语句里也通不过，

不知用with语句时，有什么要求和限制呢？

简

木鱼啊木鱼，你都把单位的值赋给单位了，还用这个分支选择。要是单位二十多个，都这样写吗？

hamletl

蛮复杂的。

木鱼

两边同步的代码
简单一点的，仅供参考亚
嘿嘿Tableinfo 是右边那个表的名称
Private Sub    tvwTest_NodeClick(   ByVal   Node  As Object )
          Me.TableInfo.Form.FilterOn =True
           Select Case    Node.Key
           Case  "B"
              Me  . TableInfo . Form. Filter  = "[单位]='富顺'"
           Case  "C"
              Me  . TableInfo . Form. Filter  = "[单位] ='重庆'"
           Case  "D"
              Me  . TableInfo . Form. Filter  = "[单位] ='上海   '"

           Case  "E"
              Me  . TableInfo . Form. Filter  = "[单位] ='成都'  "
           Case  "F"
              Me  . TableInfo . Form. Filter  = "[单位] ='北京'  "
            End Select
      End Sub

木鱼

以下是引用简在2004-4-27 23:56:32的发言：
木鱼木鱼，你发现没有，你那代码不具通用性。如果在单位项里又增添或删除了许多单位，那我不是又要手动修改代码吗？

我的想法是，把右边部分，即单位字段的内容，做成节点，通过指针遍历，从而自动把新添加的单位加入左边的目录里，这样就不用修改代码了。

我知道亚，不过你不要着急嘛，要一步一步来实现亚
我也是初学Access的
以前对Excel的VBA有研究
不过对Access下的没有弄过
馒头要一口一口啃亚
呵呵

简

木鱼木鱼，你发现没有，你那代码不具通用性。如果在单位项里又增添或删除了许多单位，那我不是又要手动修改代码吗？

我的想法是，把右边部分，即单位字段的内容，做成节点，通过指针遍历，从而自动把新添加的单位加入左边的目录里，这样就不用修改代码了。

木鱼

以下是引用简在2004-4-22 21:48:07的发言：
在本站下载的一个管理系统，在这个窗体中，其左边部分是怎么做呢？

我看不到它的源代码。：（

左边的可以这样做
效果如图所示
代码如下

Private Sub FORM_Load()
   
    'tvwTest是Treeview的名称
    tvwTest.Nodes.Add , , "A", "外协", 0, 0
    tvwTest.Nodes.Add "A", 2, "B", "富顺", 0, 0
    tvwTest.Nodes.Add "B", 2, "C", "重庆", 0, 0
    tvwTest.Nodes.Add "C", 2, "D", "上海", 0, 0
    tvwTest.Nodes.Add "D", 2, "E", "成都", 0, 0
    tvwTest.Nodes.Add "E", 2, "F", "北京", 0, 0
    tvwTest.Nodes.Add "F", 2, "G", "其他", 0, 0
   
   
End Sub





至于如何点击节点
让右边的表格同步
我再研究一下
应该不难的

[此贴子已经被作者于2004-4-27 22:54:07编辑过]