ERRO : CARREGAR LISTVIEW

PROGRAMADORVB6 14/07/2014 16:36:52
#439528
Olá Galera, boa noite.
Tenho uma rotina que carrega de uma base de dados para uma ListView, mas quando coloco a instrução no inicio : Option Strict On me devolve erro, quando desativada o programa trabalha normalmente.
Como posso resolver este erro? Será que alguma coisa não foi especificada?
Deixo aqui parte do código e também código fonte na integra para que possam me ajudar.
Agradeço no entanto a todos vós pela vossa atenção.
Atenciosamente
ProgramadorVB6


  Option Strict On

Imports System.Text


Public Class Form1
    Private SQL As StringBuilder

    Sub PreencherLista()
        Dim DR As DataRow
        Me.Grelhax.Items.Clear()
        SQL = New StringBuilder
        SQL.Append([Ô]SELECT * FROM ListaCodigos ORDER BY Nome desc[Ô])
        CarregarDataSet(SQL.ToString)
        Dim ListItem As ListViewItem
        For Each DR In DT.Rows
            If Not DR Is DBNull.Value Then

                ListItem = Grelhax.Items.Add(DR([Ô]Nome[Ô]))
                ListItem.SubItems.Add(DR([Ô]Linguagem[Ô]).ToString())
            End If
        Next
    End Sub
End Class
OMAR2011 14/07/2014 17:43:43
#439533 Resposta escolhida
Tente assim.
[txt-color=#e80000] ListItem = Grelhax.Items.Add(DR([Ô]Nome[Ô]).ToString)
[/txt-color] ListItem.SubItems.Add(DR([Ô]Linguagem[Ô]).ToString)
Acredito que vai acabar o erro.
Tópico encerrado , respostas não são mais permitidas
Voltar