我在创建的表单上有几个列表框。列表框之一具有一堆供应商名称(lst_SupplierName)。选择供应商名称后,它会自动在另一个列表框中(lst_PartNumber)填充该供应商下的所有零件号。
我想更进一步。因此,现在要填充“零件号”列表框,我想选择一个零件号,并基于该零件号能够创建一个查询,该查询从其包含的表中列出与该零件号相关联的所有必需属性。
创建2个列表,第一个查询供应商表,第二个查询零件表,该表将使用第一个列表的值仅查询该供应商的零件。这是我创建的示例表:
和形式:
第一个列表行来源是:
SELECT [tblSuplier].[SupID], [tblSuplier].[SupName] FROM tblSuplier ORDER BY [SupName];
第二个列表行的来源是:
SELECT tblPart.PartID, tblPart.SupID, tblPart.PartName, tblPart.PartDescr FROM tblPart WHERE (((tblPart.SupID)=[Forms]![frmMain]![lstSup]));
要更新第二个列表,请在第一个列表中选择某项时,需要在第一个列表中添加“更新后”事件:
Private Sub lstSup_AfterUpdate()
lstPart.Requery
End Sub
现在,您可以使用after update事件以相同的方式从零件列表中填充表单上不同的字段-只需将值放入字段中即可,例如txtDescription = lstPart.column(2 = 3)。
如果您有任何疑问,请告诉我。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句