自上次使用Access以来已有多年，但您是否尝试过使用:

Hi,

Years since I last used Access, but have you tried using:

strGuideline = lstbxGuideline.ItemData(lstbxGuideline.ListIndex)

如果列表框是多选版本，那么您将不得不遍历所有项目并检查Selected 属性是否为true.

If the list box is a multiselect version then you would have to loop through all items and check if the Selected property is true.

strGuideline = lstbxGuideline.ItemData(lstbxGuideline.ListIndex + 1 )
表单记录源设置为qdef"qryEditGuidelinesItems"

哇！

strGuideline = lstbxGuideline.ItemData(lstbxGuideline.ListIndex + 1)
form recordsource set to qdef "qryEditGuidelinesItems"

whew!