2016-08-30 2 views
0

이 내가이 오류가 발생 F5 충돌 내 코드vb6에서 메서드 또는 데이터 멤버를 찾을 수 없습니까?

Sub filllistview() 
    Dim itmX As ListItem 

    Main 

    rs.Open " select * from hatw order by id desc ", dbconn, 3, 2 

    If Not rs.EOF Then 
    ListView1.ListItems.Clear 
    rs.MoveFirst 

    Do While Not rs.EOF 
     Set itmX = ListView1.ListItems.Add(1, , rs!id) 
     itmX.ListSubItems.Add , , rs!no_of_text 
     itmX.ListSubItems.Add , , rs!date_of_text 
     itmX.ListSubItems.Add , , rs!Title 
     rs.MoveNext 
    Loop 
    Else 
    ListView1.ListItems.Clear 
    End If 

    rs.Close 
    Set rs = Nothing 
End Sub 

입니다 :

오류 하이라이트

을 발견

방법 또는 데이터 구성원이 아닌이 문 :

ListView1.ListItems.Clear 
+0

아마도'ListView1.ListItems.Clear()'에는 대괄호가 필요합니까? –

+0

그래도 오류가 발생했습니다. 답변을 주셔서 감사합니다. –

+0

사실'ListView1'은 'MSComctlLib.ListView'입니까, 아니면 VBA 환경입니까? – GSerg

답변

0

프로젝트에 대한 참조를 추가해야하는 것이 정확하다고 생각됩니다. documentation에 따르면 MSCOMCTL.OCX에 대한 참조를 추가해야합니다. Excel VBA 편집기 참조 대화 상자에서 해당 항목을 조금 검색해야했지만 (미리 정의 된 참조가 아니었지만) 내 컴퓨터에서 찾았습니다 : C:\Windows\SysWOW64\MSCOMCTL.OCX. 컨트롤을 찾았 으면 참조 목록에 Microsoft Windows Common Controls 6.0 (SP6)으로 나타났습니다. 아마도 이미 Access에있는 것으로 자동으로 나열됩니다. 최대한 빨리

Dim LV as ListView 

과 같은 참조 라인을 추가하자마자.

+0

글쎄, 이제는 OP가 VBA가 아니라 VB6이라는 것을 알 수 있습니다. 따라서 구성 요소 도구 모음에 구성 요소가 있으면 참조로 충분합니다. – GSerg

+0

@GSerg 어쩌면 당신 말이 맞지만 OP는 그 점에서 다소 모호한 것처럼 보입니다. 그들은 그들의 마지막 논평부터 2 시간 안에 돌아 오지 못했습니다. 그들이 그것이 도움이되지 않는다고 말하면이 대답을 삭제할 것입니다. –

+0

답장을 보내 주셔서 대단히 감사하지만 폴더 SysWOW64가 없으며 참조 목록에 Microsoft Windows 공용 컨트롤 6.0이 없습니다 (SP6 –

관련 문제