步驟 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的詳細資訊，請參閱下一個步驟。

如果資源是結構化檔，則不會實作任何程序代碼。

另請參閱

因特網發佈案例
步驟 2：初始化主清單框
步驟 4：填入詳細數據文字框