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  

이 코드는 각각 rec 및 rs로컬 Record 및 Recordset 개체를 선언하고 인스턴스화합니다.

lstMain 선택한 리소스에 해당하는 행은 현재 grs행으로 만들어집니다. 그런 다음 세부 정보 목록 상자가 초기화되고, 현재 행 grs을 원본으로 사용하여 rec이 열립니다.

RecordType에 지정된 대로 리소스가 컬렉션 레코드인 경우 로컬 레코드 집합 rs는 rec의 자식 항목에서 열립니다. 그런 다음 lstDetails는 rs의 행에서 가져온 값들로 채워집니다.

리소스가 단순 레코드인 경우 recFields 호출됩니다. recFields대한 자세한 내용은 다음 단계를 참조하세요.

리소스가 구조화된 문서인 경우 코드가 구현되지 않습니다.

참고 항목

인터넷 게시 시나리오
2단계: 주 목록 상자 초기화
4단계: 세부 정보 입력란 채우기