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

Ajoe

TreeView我还没有开始认真地学，你比我先学一步了，我不能帮你。
不过我可以帮你“顶”(帖子)。

木鱼

以下是引用简在2004-4-27 12:50:47的发言：
TreeView在ACCESS的帮助说明里没有呢？
我想查它选项的具体说明呢。从网上资料上得知TreeView的格式是：

object.Add(relative, relationship, key, text, image, selectedimage)

我想了解relative, relationship到底有哪些选择。我从网上下载的相关例子来看，这两项，有人用"a",有人用'R"，有人用“R1",也有用“L”的。我不知R、A、R1、L等，是代表什么意思呢？

那个都没有什么关系
只是作为一个唯一标志符
也就是能唯一标志这个节点的，随便什么都可以
只要不重复就行

简

那么再请问问：TreeView在ACCESS的帮助说明里有没有呢？

hxj_nn

顶！！！ACCESS的“帮助”实在是不敢恭维！

Ajoe

TreeView是控件，ACCESS没有详细的说明文件。

简

以下是引用Ajoe在2004-4-27 12:56:14的发言：
TreeView我还没有开始认真地学，你比我先学一步了，我不能帮你。
不过我可以帮你“顶”(帖子)。

其实我学这个ACCESS，跳跃性很大，我手里的教材，内容简单得不能再简单了，我根据自己工作中的情况，边做边学，库中需要什么，我就看什么，像表，查询等，我就学得不太深入，很多控件，属性，我就一问三不知了。：（

在此也谢谢你和大伙儿的帮助，真的希望自己，在你们的帮助下，慢慢的进步，更加快乐的学习ACCESS。

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

木鱼

以下是引用简在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编辑过]

简

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

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

木鱼

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

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

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

木鱼

两边同步的代码
简单一点的，仅供参考亚
嘿嘿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