每当我这样做过时,我都会为列表框使用 RowSource,并且在第一个列表框的 OnChange 事件中,我构造了一个 SQL 字符串并更新了第二个列表框的 RowSource。就像是:
sSQL = "SELECT * FROM MyTable WHERE MyField = " & forms![HHRRR]![List0].Text & ""
Me.Listbox2.RowSource = sSQL
Me.Listbox2.Requery
这完全是“航空代码”,可能需要一些调整,但你明白了。