Acara
Dapatkan sertifikasi di Microsoft Fabric—secara gratis!
19 Nov, 23 - 10 Des, 23
Untuk waktu yang terbatas, tim Komunitas Microsoft Fabric menawarkan voucher ujian DP-600 gratis.
Siapkan sekarangBrowser ini sudah tidak didukung.
Mutakhirkan ke Microsoft Edge untuk memanfaatkan fitur, pembaruan keamanan, dan dukungan teknis terkini.
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.
Skenario Penerbitan Internet
Langkah 2: Menginisialisasi Kotak Daftar Utama
Langkah 4: Isi Kotak Teks Detail
Acara
Dapatkan sertifikasi di Microsoft Fabric—secara gratis!
19 Nov, 23 - 10 Des, 23
Untuk waktu yang terbatas, tim Komunitas Microsoft Fabric menawarkan voucher ujian DP-600 gratis.
Siapkan sekarang