询问如何使用下载的tmtony的Access作品

yn123

您好,日前刚从Access-cn网站下载了tmtony的作品“以前做的一个树状结构的例程1.0”（http://www.office-cn.net/Soft/Class3/Class1/200405/82.html），有个使用上的问题想请教，在打开最后一级树形菜单时，例如：“ord→结构流程→售前”。在出现“售前”菜单后，目前的情况是鼠标点击后无响应。当然作者的想法是希望用户自己添加链接，但我一直找不到添加链接的位置，希望您能指教。我只想点击它后直接链接到本数据库的表和窗体即可，希望能得到您的帮助。十分感谢！

        云南昆明
         yn123
     2006年10月28日

[此贴子已经被作者于2006-10-28 18:10:03编辑过]

tmtony

我已经在邮件回复您了,谢谢

yn123

您好！感谢您在繁忙中给我的回复。



    由于我对access了解不深，对于您的简约回答领悟不够，还是不能进行添加操作，恳请您能将具体的设置说的详细一些。



    我按您的“如果是手工添加,可直接将窗体拖到菜单上就可以了”操作，是否是指将主窗体打开（或进入设计视图），然后将我的窗体“AAA”拖到主窗体上去即可？操作失败，结果出现提示：“是否永久性删除 窗体‘AAA’？”（或将窗体AAA的内容全部拖到主窗体的设计视图中），详细见图1（或图2）。还请您能再次指教。



    我按您的“是用代码,则可设置Onaction函数”操作，由于对代码不熟，我想在您的代码中找到该代码进行修改即可，但原代码中并没有“Onaction”函数，没地方改，自己又不知道往哪里进行添加，还请您能再次指教。



    另外，您所指的代码是否是指将主窗体进入设计视图，然后右键单击树形部份的事件生成器后，有如下代码：



'*-----------------------Çá»êACCESSÔ´ÂëÇø----------------------------*
'|  µç×ÓÐÅÏä:support@zsjys.com                  .--.                 |
'|           tmtony@21cn.com                  ."  o \__              |
'|  Ö÷Ò³µØÖ·:www.zstmcomputer.com          _.-"    ,(  `             |
'|           tmcomputer.yeah.net       _.-"      ,;;|                |
'|                                _.-=" _,"    ,,;;;'                |
'|                            .-"`_.-"``-..,,;;;;:'                  |
'*----------------------------`"'`----------`\`\---------------------*
'*----------------------------------------   /^\\\ support@zsjys.com
'*---Ìì´óÊÂ×Üƽ³£ÊÂ, ·³ÄÕÐĽÔÌ°ÓûÐÄ-----
'*------------------------------------


Option Compare Database
Option Explicit
Const pProgClsCode = "ord"
Dim y As Integer


'


'
Sub ExpandSubTree(rsvalue As String, NodeA As Node)

'On Error GoTo ETBE_Err

    Dim rsChild As Recordset, rsChild1 As Recordset, rsTempBe As Recordset, stInv As String, Summy As Variant, No As String
    Dim Qty As Double, ln As Integer
    Dim n As Node, N1 As Node


Dim strSql As String
Dim strCtlName As String

Set rsChild = New ADODB.Recordset
Set rsChild1 = New ADODB.Recordset
strSql = "select progcls1code,progcls1name from tblSysProgCls1 where progclscode='ord' order by seqno;"
rsChild.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
    If rsChild.RecordCount = 0 Then
       Exit Sub
    Else
       'ln = dlen(rsChild.RecordCount)
       rsChild.MoveFirst

       While Not rsChild.EOF
             Set n = Trv.Nodes.Add(NodeA.Index, tvwChild, "C" & rsChild("progcls1code").Value, rsChild("progcls1name").Value, 1)
             n.Expanded = True 'True
                If rsChild1.State = 1 Then rsChild1.Close
                strSql = "select progcls2code,progcls2name from tblSysProgCls2 where progcls1code='" & rsChild("progcls1code") & "' order by seqno;"
                rsChild1.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
                While Not rsChild1.EOF
                     Set N1 = Trv.Nodes.Add(n.Index, tvwChild, "S" & rsChild1("progcls2code").Value, rsChild1("progcls2name").Value, 2)
                     N1.Expanded = True 'True
                     rsChild1.MoveNext
                Wend



             'ExpandSubTree rsChild("part_id").Value, N
             rsChild.MoveNext
       Wend
    End If

    Exit Sub

ETBE_Err:
   ' mis_Alert "Error In Explode2TempBomExtendNew......" & Error$
    Exit Sub
End Sub

<DIV>
Private Sub Form_Load()

yn123

十分感谢，还有不明......(见上贴)

yn123

十分感谢，还有不明......(见上贴)

yn123

十分感谢,您的邮件我已收到,基本没什么问题了,谢谢!!!