Baca dalam bahasa Inggris

Bagikan melalui


Langkah 3: Isi Kotak Daftar Bidang

Untuk mengisi kotak daftar Bidang, sisipkan kode berikut ke dalam penanganan aktivitas Klik dari lstMain:

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  

Kode ini mendeklarasikan dan membuat instans objek Record dan Recordset lokal, rec dan rs, masing-masing.

Baris yang sesuai dengan sumber daya yang dipilih lstMain di dibuat menjadi baris saat ini dari grs. Kemudian kotak daftar Detail dikosongkan dan rec dibuka dengan baris grs saat ini sebagai sumber.

Jika sumber daya adalah rekaman koleksi, seperti yang ditentukan oleh RecordType, Recordset rs lokal dibuka pada anak-anak rec. Kemudian lstDetails diisi dengan nilai dari baris rs.

Jika sumber daya adalah catatan sederhana, recFields dipanggil. Untuk informasi selengkapnya tentang recFields, lihat langkah berikutnya.

Tidak ada kode yang diimplementasikan jika sumber daya adalah dokumen terstruktur.

Lihat juga

Skenario Penerbitan Internet
Langkah 2: Menginisialisasi Kotak Daftar Utama
Langkah 4: Isi Kotak Teks Detail