3단계: 필드 목록 상자 채우기
Fields 목록 상자를 채우려면 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의 현재 행이 됩니다. 그런 다음, Details 목록 상자가 지워지고 grs의 현재 행을 원본으로 사용하여 rec가 열립니다.
리소스가 RecordType으로 지정된 컬렉션 레코드인 경우 rec의 자식에서 로컬 Recordset인 rs가 열립니다.그런 다음, lstDetails는 rs 행의 값으로 채워집니다.
리소스가 단순 레코드인 경우 recFields가 호출됩니다. recFields에 대한 자세한 내용은 다음 단계를 참조하세요.
리소스가 구조화된 문서인 경우 코드가 구현되지 않습니다.