步驟 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 的目前資料列。 然後會清除 [詳細資料] 清單方塊，並以目前的資料列 grs 來開啟 rec 做為來源。

如果資源是集合記錄，如 RecordType 所指定，則會在 rec 的子系上開啟本機 Recordset rs。然後會以資料列 rs 中的值填入 lstDetails。

如果資源是簡單的記錄，則會呼叫 recFields。 如需 recFields 的詳細資訊，請參閱下一個步驟。

如果資源為結構化文件，則不會實作任何程式碼。

另請參閱

網際網路發佈案例
步驟 2：初始化 [主要] 清單方塊
步驟 4：填入 [詳細資料] 文字方塊