---
title: "Listveiw..error"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/27678-listveiw-error"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Tobbster"
published: "2001-11-01T16:05:00.000Z"
updated: "2001-11-02T07:07:00.000Z"
replies: 7
views: 205
page: 1
pages: 1
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/27678-listveiw-error"
---

# Listveiw..error

## #1 — Tobbster, 2001-11-01T16:05Z

Kan någon se vad det är fölr fel på den här koden....

Jag får felneddelande 

run-time-error'13':
type mismatch

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Public Sub Form_Load()
    Dim Conn As Connection
    Dim rs As Recordset
    Dim WS As Workspace
    Set WS = CreateWorkspace("NewODBCWorkspace", "", "", dbUseODBC)
    Set Conn = WS.OpenConnection("scannat")
    Set rs = Conn.OpenRecordset("Select \* from serienummer")
     
     
     Dim itemX As ColumnHeader
     Dim i As Integer
     For i = 0 To rs.Fields.Count - 1
      Set itemX = ListView1.ColumnHeaders.Add(, , rs.Fields(i).Name, , 0)
     Next i
     
     Do While Not rs.EOF
       Dim itmY As ListItem
    
       Set itmY = ListView1.ListItems.Add(, , rs.Fields(0), , 0)
     Dim j As Integer
        For j = 1 To rs.Fields.Count - 1
          If Not IsNull(rs.Fields(rs.Fields(j).Name)) Then
            itmY.SubItems(j) = rs.Fields(rs.Fields(j).Name)
          Else
            itmY.SubItems(j) = ""
          End If
        Next j
      rs.MoveNext
      Loop
      rs.Close

End Sub

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

## #2 — Beatbox, 2001-11-01T17:30Z

Vilken rad marker VB att det är fel på ? Den brukar göra det då man får "type mismatch"

// BeatBox

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

## #3 — Tobbster, 2001-11-01T17:41Z

Den här rade är det de blir fel på....

Men det är efter några varv i loopen så och det är när recordsetet blir tomt...
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Set itmY = ListView1.ListItems.Add(, , rs.Fields(0), , 0)

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

## #4 — Beatbox, 2001-11-01T18:00Z

Blr det någon skillnad om du flyttar ut "Dim itmY As ListItem" utanför while loopen ? Som i itemX fallet tänkte jag.

// BeatBox

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

## #5 — Tobbster, 2001-11-01T18:18Z

Nepp ingen skillnad !!!!!!!

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

## #6 — Beatbox, 2001-11-02T06:18Z

Tyvärr så kan jag nog inte hjälpa dig. Det är svårt utan att man kan sitta och debugga koden. :-(

// BeatBox

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

## #7 — Tobbster, 2001-11-02T06:52Z

Ingen annan ?????

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

## #8 — Beatbox, 2001-11-02T07:07Z

Det enda jag kan se är att i vissa fall så returnerar rs.Fields(0) nått annat än en sträng.

// BeatBox

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/27678-listveiw-error