list view problems [RESOLVED]

[Andy]

I'm trying to get a scan of all listView controls on my app. These may be in tabs and on tabs within THOSE tabs.

I tried this:

For Each list As LisView In Me. Controls
 
Do-something
 
Next

but that produces a cast error. What am I missing here?

[dynamic_sysop]

you need to do for Each ctl As Control , then if the control is a listview carry out your extra stuff , eg:

For Each ctl As Control In Controls
            If ctl.GetType.IsAssignableFrom(GetType(ListView)) Then
                Dim lv As ListView = DirectCast(ctl, ListView)
                '/// carry out additional code here for the listviews...
            End If
        Next

[Andy]

aha, that makes a lot of sense. Thanks!!

[Andy]

ok, that was fixed. but, a related question:

if I have a recordset (using ado) and need to populate a list view (detail view) with the fields, do I have to use the .value of EACH field?

Is there a method that simply takes the recordset and slaps it in the listview item array?

[Andy]

alright, so far, this is what I have:

Public Sub UpdateQue(ByVal list As ListView, ByVal QueCode As Integer)
        'Purpose    :   populates the queue lists
        'Accepts    :   list as Listview
        'Returns    :   
        'Notes      :   
 
        Dim intCount As Integer = 0
        IsDisconnected(EverestDB)
        IsDisconnected(EverestRS)
 
        EverestDB.Open(EverestConnStr)
        EverestRS.Open("SELECT * FROM Ticketing_TroubleTickets WHERE DepartmentQueue = '" & QueCode & _
                        "' AND STATUS = 0;", EverestDB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
 
        EverestRS.MoveFirst()
 
        While Not EverestRS.BOF And Not EverestRS.EOF
            Application.DoEvents()
 
            Dim QueItem(100) As TroubleTicket
 
            If EverestRS.EOF Then
                EverestRS.Close()
                Exit While
 
            Else
                EverestRS.MoveNext()
               
                QueItem(intCount) = New TroubleTicket
                With QueItem(intCount)
 
                    .Commitment = EverestRS("Commitment").Value
                    .CommDate = EverestRS("CommitmentDateTime").Value
                    .TicketNumber = EverestRS("TicketNumber").Value
                    .Solution = EverestRS("SolutionCode").Value
                    .AssignedTo = EverestRS("AssignedTech").Value
                    .QueList = EverestRS("DepartmentQueue").Value
                    .Code = EverestRS("TroubleCode").Value
                    .Priority = EverestRS("PriorityCode").Value
                    .MemberNumber = EverestRS("MemberNumber").Value
                    .CodeDescription = EverestRS("TroubleDesc").Value
                    .PhoneNumber = EverestRS("PhoneNumber").Value
                    .CustomerName = EverestRS("CustomerName").Value
                    .EnteredBy = EverestRS("EnteredBy").Value
                    .UserName = EverestRS("UserName").Value
                    .Address1 = EverestRS("Address1").Value
                    .Address2 = EverestRS("Address2").Value
                    .Address3 = EverestRS("Address3").Value
                    .City = EverestRS("AddressCity").Value
                    .State = EverestRS("AddressState").Value
                    .ZIP = EverestRS("AddressZIP").Value
                    .MapZoneSub = EverestRS("MapZoneSub").Value
                    .LEN = EverestRS("LEN").Value
                    .LocPath = EverestRS("LocPath").Value
                    .CablePair = EverestRS("CablePair").Value
                    .DayOfComm = EverestRS("DayOfcommitment").Value
                    .DSLplan = EverestRS("DSLPlan").Value
                    .PIC = EverestRS("PIC").Value
                    .LPIC = EverestRS("LPIC").Value
                    .ReportDateTime = EverestRS("Reported").Value
                    .RepairDateTime = EverestRS("Repaired").Value
 
                End With
 
                list.Items.Add(QueItem(intCount).TicketNumber)
                list.Items(0).SubItems.Add(QueItem(intCount).PhoneNumber)
                list.Items(0).SubItems.Add(QueItem(intCount).Priority)
                list.Items(0).SubItems.Add(QueItem(intCount).ReportDateTime)
                list.Items(0).SubItems.Add("")
                list.Items(0).SubItems.Add(QueItem(intCount).Commitment)
                list.Items(0).SubItems.Add(QueItem(intCount).AssignedTo)
                list.Items(0).SubItems.Add(QueItem(intCount).Code)
                list.Items(0).SubItems.Add(QueItem(intCount).CablePair)
                list.Items(0).SubItems.Add("")
                list.Items(0).SubItems.Add(QueItem(intCount).Address1)
 
intCount +=1
 
            End If
 
        End While
 
 
    End Sub

I get a bof or eof error. I thought I covered that one with my if statement. Any suggestions?

[Andy]

ok, I figured it out:

Public Sub UpdateQue(ByVal list As ListView, ByVal QueCode As Integer)
        'Purpose    :   populates the queue lists
        'Accepts    :   list as Listview
        'Returns    :   
        'Notes      :   
 
        Dim intCount As Integer = 0
        IsDisconnected(EverestDB)
        IsDisconnected(EverestRS)
 
        EverestDB.Open(EverestConnStr)
        EverestRS.Open("SELECT * FROM Ticketing_TroubleTickets WHERE DepartmentQueue = '" & QueCode & _
                        "' AND STATUS = 0;", EverestDB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
 
 
        If Not EverestRS.BOF And Not EverestRS.EOF Then
            EverestRS.MoveFirst()
            While (Not EverestRS.EOF)
                Application.DoEvents()
 
 
                Dim QueItem(100) As TroubleTicket
 
                QueItem(intCount) = New TroubleTicket
                With QueItem(intCount)
 
                    .Commitment = EverestRS("Commitment").Value
                    .CommDate = EverestRS("CommitmentDateTime").Value
                    .TicketNumber = EverestRS("TicketNumber").Value
                    .Solution = EverestRS("SolutionCode").Value
                    .AssignedTo = EverestRS("AssignedTech").Value
                    .QueList = EverestRS("DepartmentQueue").Value
                    .Code = EverestRS("TroubleCode").Value
                    .Priority = EverestRS("PriorityCode").Value
                    .MemberNumber = EverestRS("MemberNumber").Value
                    .CodeDescription = EverestRS("TroubleDesc").Value
                    .PhoneNumber = EverestRS("PhoneNumber").Value
                    .CustomerName = EverestRS("CustomerName").Value
                    .EnteredBy = EverestRS("EnteredBy").Value
                    .UserName = EverestRS("UserName").Value
                    .Address1 = EverestRS("Address1").Value
                    .Address2 = EverestRS("Address2").Value
                    .Address3 = EverestRS("Address3").Value
                    .City = EverestRS("AddressCity").Value
                    .State = EverestRS("AddressState").Value
                    .ZIP = EverestRS("AddressZIP").Value
                    .MapZoneSub = EverestRS("MapZoneSub").Value
                    .LEN = EverestRS("LEN").Value
                    .LocPath = EverestRS("LocPath").Value
                    .CablePair = EverestRS("CablePair").Value
                    .DayOfComm = EverestRS("DayOfcommitment").Value
                    .DSLplan = EverestRS("DSLPlan").Value
                    .PIC = EverestRS("PIC").Value
                    .LPIC = EverestRS("LPIC").Value
                    .ReportDateTime = EverestRS("Reported").Value
                    .RepairDateTime = EverestRS("Repaired").Value
 
                End With
 
                list.Items.Add(QueItem(intCount).TicketNumber)
                list.Items(intCount).SubItems.Add(QueItem(intCount).PhoneNumber)
                list.Items(intCount).SubItems.Add(QueItem(intCount).Priority)
                list.Items(intCount).SubItems.Add(QueItem(intCount).ReportDateTime)
                list.Items(intCount).SubItems.Add("")
                list.Items(intCount).SubItems.Add(QueItem(intCount).Commitment)
                list.Items(intCount).SubItems.Add(QueItem(intCount).AssignedTo)
                list.Items(intCount).SubItems.Add(QueItem(intCount).Code)
                list.Items(intCount).SubItems.Add(QueItem(intCount).CablePair)
                list.Items(intCount).SubItems.Add("")
                list.Items(intCount).SubItems.Add(QueItem(intCount).Address1)
 
                intCount += 1
 
                If (Not EverestRS.EOF) Then
                    EverestRS.MoveNext()
                Else
                    EverestRS.Close()
                    Exit While
                End If
            End While
        End If
 
 
    End Sub

works like a charm now!!