'Row' argumment cannot be null

[DarkAngelRev]

Boas... no pedaço de código que deixo em baixo dá me erro como tenho e continua a dar quando retiro a inicialização da variável como nothing e meto new datarow.... alguém tem sugestões?

dá-me o seguinte erro: "'Row' argumment cannot be null"

Public Function GetCliente(ByVal Id As String) As Boolean
        'Declarações de variáveis
        Dim con As New SqlConnection(constr)
        Dim dr As SqlDataReader
        Dim cmd As New SqlCommand
        Dim loja As New DataSetLoja
        Dim sucesso As Boolean = False
        Dim row As DataRow = Nothing

        cmd.Connection = con
        cmd.CommandText = "SELECT * FROM CLIENTES WHERE Cliente='" & Id & "'"
        con.Open()

        dr = cmd.ExecuteReader

        'Verificar se já existe e Passar os dados para o dataset loja
        While dr.Read
            Dim n As Integer = dr.RecordsAffected
            If loja.Clientes.Rows.Contains(dr.Item(0)) Then
                'Verificar data do registo e determinar qual o mais actual
                'perguntar se quer actualizar o registo e dependendo da resposta realizar operação
                sucesso = False 'actualizar valor da variável sucesso para true
            Else
                For i As Integer = 0 To n
                    row(i) = dr(i)
                Next i

                loja.Clientes.Rows.Add(row)
                sucesso = True
            End If
        End While

        dr.Close()
        con.Close()
        Return sucesso
    End Function

[Andrepereira9]

Boas

Qual é o erro, e onde é que ele acontece?

[Caça]

Troca

For i As Integer = 0 To n
   row(i) = dr(i)
Next i
loja.Clientes.Rows.Add(row)

por

row = loja.Clientes.NewRow()
For i As Integer = 0 To n
   row(i) = dr(i)
Next i
loja.Clientes.Rows.Add(row)

[DarkAngelRev]

já está agora diz que a coluna cliente não aceita nulls...

[Caça]

Adicionou algum valor? Passou alguma vez dentro do ciclo for?

[DarkAngelRev]

ok.. mas o problema está resolvido... obrigado... o outro erro está a dar porque por algum motivo a consulta não esta a devolver nada...

Obrigado... abraço