步骤 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  

此代码分别声明并实例化本地 Record 和 Recordset 对象，rec 和 rs。

在 lstMain 中选择的资源对应的行被设置为 grs的当前行。 然后清除“详细信息”列表框，rec 以 grs 的当前行作为源打开。

如果资源是集合记录（由 RecordType指定），则会在 rec 的子级上打开本地 Recordset rs。然后，lstDetails 填充 rs行中的值。

如果资源是简单的记录，则调用 recFields。 有关 recFields的详细信息，请参阅下一步。

如果资源是结构化文档，则不会实现任何代码。

另请参阅

Internet 出版场景
步骤 2：初始化主列表框
步骤 4：填充详细信息文本框