求教一个ListBox的问题

xnc_0014

大家好：
    小弟求助各位老师一个关于ListBox的问题，谢谢大家。
    附件是一个采购系统，其中有一张表，名为“采购目录”，记录着所有可以采购物品的清单。还有一个窗体，名为“采购单”，采购单必须从“采购目录”中选择物品进行购买。
    现在看窗体“采购单”，窗体右边有几个文本框和下拉框，其中关注三个下拉框：名称、型号、数量单位。填写采购单时，首先选择名称，例如“计算机”。这个选择的过程中，通过“名称”下拉框的Click事件，自动生成了“型号”下拉框的Item供选择。然后在“型号”中选择，例如选择“联想”。我通过如下代码来实现“数量单位”下拉框Item的生成：

Private Sub 采购单_型号_Click()
Me.采购单_数量单位 = ""
Me.采购单_数量单位.RowSource = "select 数量单位 from 采购目录 where 名称=""" & Me.采购单_名称 & """ AND 型号=""" & Me.采购单_型号 & """ Group By 数量单位"
End Sub

    这段代码的方法和“名称”Click事件生成“型号”Item的方法完全一样，可是“数量单位”的Item就是无法生成，这是为什么啊？
    另外再补充一个小问题，就是生成Item之后，我希望将第一个Item自动设为这个对话框的默认值，如何实现？谢谢大家。

xnc_0014

顶自己一下，谢谢。

ly

建议：
把“数量单位”组合框更改为文本框，并修改下列代码：

1. Private Sub 采购单_型号_Click()
   
2. Me.采购单_数量单位.Value = DLookup("数量单位", "采购目录", "名称='" & Me.采购单_名称 & "' AND 型号='" & Me.采购单_型号 & "'")
   
3. End Sub
   

复制代码

ASLXT

1、
数量单位的行来源类型要填写：表/查询，不能为空白
2、
Private Sub 采购单_型号_Click()
Me.采购单_数量单位 = ""
'MsgBox "select 数量单位 from 采购目录 where 名称=""" & Me.采购单_名称 & """ AND 型号=""" & Me.采购单_型号 & """ Group By 数量单位"
Me.采购单_数量单位.RowSource = "select 数量单位 from 采购目录 where 名称=""" & Me.采购单_名称 & """ AND 型号=""" & Me.采购单_型号 & """ Group By 数量单位"
Me.采购单_数量单位 = Me.采购单_数量单位.Column(0, 0)
End Sub

ASLXT

...
Me.采购单_数量单位 = Me.采购单_数量单位.Column(0, 0)'将第一个Item自动设为这个对话框的值，不是默认值
...

ASLXT

...
Me.采购单_数量单位.DefaultValue = """" & Me.采购单_数量单位.Column(0, 0) & """" '设置默认值
...

xnc_0014

谢谢两位前辈指点，让晚辈受益匪浅，谢谢，问题解决了。