Office中国论坛/Access中国论坛

标题: [求助]关于目录树的选择以及计算等问题 [打印本页]

作者: miantiao1 时间: 2007-6-26 22:37
标题: [求助]关于目录树的选择以及计算等问题
[attach]25121[/attach]
在“领料记录填写”窗体中有两个产品分别为“产品型号1”和“产品型号2”，使用树目录将两个产品使用的零件分开。
其中：
产品型号1中用到三种零件，分别为“零件号码001” 3pcs;“零件号码002” 4pcs;“零件号码003” 2pcs;
产品型号2中用到四种零件，分别为“零件号码002” 3pcs;“零件号码004” 6pcs;“零件号码005” 3pcs;“零件号码006” 3pcs;

要求：
  1：点击左侧树目录的产品型号时在窗体右上角的位置显示出所用零件的点位数；
  2：在右上角的窗体中点击一颗零件会在下面的窗体中显示出零件的信息以供修改。

现在的问题是：
  1：点击“产品型号1”时在右上角应该显示3个零件号，分别是“零件号码001” 3pcs;“零件号码002” 4pcs;“零件号码003” 2pcs;
   可是现在显示了全部的零件号和总的点位数。怎样修改？
  2：请大虾帮忙完成要求2
  3: 在右下角的窗体中使用公式：
      A: 在“产品型号“的下拉框中选择产品型号，在“产量“文本框中显示出对应的产量数字
      B: 零件用量  = [产品用量]*[产量]

谢谢师兄们的帮助。

作者: djt 时间: 2007-6-26 23:00
Private Sub xTree_NodeClick(ByVal Node As Object)

Dim str As String
'If Node.text = "产品号" Then
'str = ""
'Else
If Node.key = "爷" Then
StrKey = Node.key
StrKey = Node.Parent.key
Else
End If

'MsgBox StrKey
str = "[产品号]='" & Node.text & "'"
'End If
Me.领料记录填写子窗体.Form.FilterOn = True<br underline;">Me.领料记录填写子窗体.Form.Filter = str
End Sub

Private Sub 产品型号_Click()
Me.产量 = 产品型号.Column(2)
End Sub

产品用量的公式为=[领料记录填写子窗体].[Form].[产品用量]

作者: miantiao1 时间: 2007-6-27 01:35
非常感谢djt师兄的帮助，现在就剩一个问题没有解决了，就是上文中问题1的解决方法了，
由于我是刚接触Access，这样的做法是否合理还请各位师兄们指导，谢谢。
附件是根据djt师兄的指导修改后的文件，请大虾们帮忙，[attach]25125[/attach]

作者: miantiao1 时间: 2007-6-27 21:32
等待斑竹的帮助呀，着急中...

作者: marlsq 时间: 2008-9-4 12:36
好，学习了

作者: marlsq 时间: 2008-9-12 15:05
再学习一下

作者: open0 时间: 2008-10-14 10:30
study

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)