[求助]關(guān)于目錄樹的選擇以及計算等問題

miantiao1

在“領(lǐng)料記錄填寫”窗體中有兩個產(chǎn)品分別為“產(chǎn)品型號1”和“產(chǎn)品型號2”，使用樹目錄將兩個產(chǎn)品使用的零件分開。
其中：
產(chǎn)品型號1中用到三種零件，分別為“零件號碼001” 3pcs;“零件號碼002” 4pcs;“零件號碼003” 2pcs;
產(chǎn)品型號2中用到四種零件，分別為“零件號碼002” 3pcs;“零件號碼004” 6pcs;“零件號碼005” 3pcs;“零件號碼006” 3pcs;

要求：
  1：點擊左側(cè)樹目錄的產(chǎn)品型號時在窗體右上角的位置顯示出所用零件的點位數(shù)；
  2：在右上角的窗體中點擊一顆零件會在下面的窗體中顯示出零件的信息以供修改。

現(xiàn)在的問題是：
  1：點擊“產(chǎn)品型號1”時在右上角應(yīng)該顯示3個零件號，分別是“零件號碼001” 3pcs;“零件號碼002” 4pcs;“零件號碼003” 2pcs;
     可是現(xiàn)在顯示了全部的零件號和總的點位數(shù)。怎樣修改？
  2：請大蝦幫忙完成要求2
  3: 在右下角的窗體中使用公式：
          A: 在“產(chǎn)品型號“的下拉框中選擇產(chǎn)品型號，在“產(chǎn)量“文本框中顯示出對應(yīng)的產(chǎn)量數(shù)字
          B: 零件用量  = [產(chǎn)品用量]*[產(chǎn)量]

謝謝師兄們的幫助。

djt

Private Sub xTree_NodeClick(ByVal Node As Object)

Dim str As String
'If Node.text = "產(chǎn)品號" Then
'str = ""
'Else
If Node.key = "爺" Then
   StrKey = Node.key
   StrKey = Node.Parent.key
   Else
  End If

'MsgBox StrKey
str = "[產(chǎn)品號]='" & Node.text & "'"
'End If
Me.領(lǐng)料記錄填寫子窗體.Form.FilterOn = True<br underline;">Me.領(lǐng)料記錄填寫子窗體.Form.Filter = str
End Sub


Private Sub 產(chǎn)品型號_Click()
    Me.產(chǎn)量 = 產(chǎn)品型號.Column(2)
End Sub

產(chǎn)品用量的公式為=[領(lǐng)料記錄填寫子窗體].[Form].[產(chǎn)品用量]

miantiao1

非常感謝djt師兄的幫助，現(xiàn)在就剩一個問題沒有解決了，就是上文中問題1的解決方法了，
由于我是剛接觸Access，這樣的做法是否合理還請各位師兄們指導(dǎo)，謝謝。
附件是根據(jù)djt師兄的指導(dǎo)修改后的文件，請大蝦們幫忙，

miantiao1

等待斑竹的幫助呀，著急中...

marlsq

好，學(xué)習(xí)了

marlsq

再學(xué)習(xí)一下

open0

study