---
title: "Adressbok i VB"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb/page2"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "ironhead"
published: "2003-07-23T19:37:40.000Z"
updated: "2003-08-04T15:11:01.000Z"
replies: 26
views: 620
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb"
---

# Adressbok i VB

_Sida 2 av 2._

## #21 — Nexus86, 2003-07-28T23:24Z

Vad är telefonnumrena och adresserna i detta fall? RecSet(?)

Permalänk: https://www.webforum.nu/p/1122836

## #22 — ironhead, 2003-07-28T23:25Z

fornamn
efternamn
titel
foretag

arbetstelefon
arbetsmobil

hemtelefon
mobil

Permalänk: https://www.webforum.nu/p/1122837

## #23 — Nexus86, 2003-07-28T23:31Z

Vilken version av Windows Common Controls använder du? 5.0 eller 6.0?

Permalänk: https://www.webforum.nu/p/1122841

## #24 — ironhead, 2003-07-28T23:42Z

6\.0 SP4

Permalänk: https://www.webforum.nu/p/1122845

## #25 — Nexus86, 2003-07-29T00:02Z

```
Dim itmx As ListItem

    List1.ColumnHeaders.Add , , "col1"
    List1.ColumnHeaders.Add , , "col2"

    Do Until RecSet.EOF

        If RecSet("fornamn") <> "" Or RecSet("efternamn") <> "" Then
            Set itmx = List1.ListItems.Add(, , "")
            itmx.ListSubItems.Add , , RecSet("fornamn") & " " & RecSet("efternamn")
        End If

        If RecSet("titel") <> "" Then
            Set itmx = List1.ListItems.Add(, , "")
            itmx.ListSubItems.Add , , RecSet("titel")
        End If

        If RecSet("foretag") <> "" Then
            Set itmx = List1.ListItems.Add(, , "")
            itmx.ListSubItems.Add , , RecSet("foretag")
        End If

        List1.ListItems.Add , , ""

        If RecSet("arbetstelefon") <> "" Then
            Set itmx = List1.ListItems.Add(, , "Arbete")
            itmx.ListSubItems.Add , , RecSet("arbetstelefon")
        End If

        If RecSet("arbetsmobil") <> "" Then
            Set itmx = List1.ListItems.Add(, , IIf(RecSet("arbetstelefon") = "", "Arbete", ""))
            itmx.ListSubItems.Add , , RecSet("arbetsmobil")
        End If

        If RecSet("arbetstelefon") <> "" Or RecSet("arbetsmobil") <> "" Then
            List1.ListItems.Add , , ""
        End If

        If RecSet("hemtelefon") <> "" Then
            Set itmx = List1.ListItems.Add(, , "Hem")
            itmx.ListSubItems.Add , , RecSet("hemtelefon")
        End If

        If RecSet("mobil") <> "" Then
            Set itmx = List1.ListItems.Add(, , IIf(RecSet("hemtelefon") = "", "Hem", ""))
            itmx.ListSubItems.Add , , RecSet("mobil")
        End If
    Loop
```

Otestat

Permalänk: https://www.webforum.nu/p/1122853

## #26 — ironhead, 2003-08-03T10:54Z

red. Glöm det ...fel av mig!

Permalänk: https://www.webforum.nu/p/1128928

## #27 — ironhead, 2003-08-04T15:11Z

När jag lägger till en grupp i min listvy så syns inte det nya värdet förens jag startat om programmet...hur uppdaterar jag fönstret efter en insert......jag har provat att köra "call" igen och "Refresh", men utan resultat..

Permalänk: https://www.webforum.nu/p/1129461

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb/page2  
Föregående sida: https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb.md