步骤 3：填充字段列表框
若要填充字段列表框，请将以下代码插入到 lstMain 的 Click 事件处理程序中：
Private Sub lstMain_Click()
Dim rec As Record
Dim rs As Recordset
Set rec = New Record
Set rs = New Recordset
grs.MoveFirst
grs.Move lstMain.ListIndex
lstDetails.Clear
rec.Open grs
Select Case rec.RecordType
Case adCollectionRecord:
Set rs = rec.GetChildren
While Not rs.EOF
lstDetails.AddItem rs(0)
rs.MoveNext
Wend
Case adSimpleRecord:
recFields rec, lstDetails, txtDetails
Case adStructDoc:
End Select
End Sub
此代码声明并实例化本地记录和记录集对象，分别为 rec 和 rs。
与 lstMain 中所选资源相对应的行成为当前的 grs 行。 然后清除详细信息列表框，并将当前 grs 行作为源来打开 rec。
如果资源是由 RecordType 指定的集合记录，则会在 rec 子级上打开本地记录集 rs。然后，用 rs 行中的值填充 lstDetails。
如果资源是简单的记录，则调用 recFields。 有关 recFields 的详细信息，请参阅下一步。
如果资源是结构化文档，则不会实现任何代码。