[Resolvido] Conversão de valor string para inteiro

[MRMB]

Caros,

Determinada situação tenho uma variável recebendo valor de um campo de uma Grid, conforme código abaixo

Dim SeqAtual As Integer

SeqAtual = CInt(vsfgLista.Cell(flexcpText, i, vsfgLista.ColIndex("SEQUENCIA")))

Código funciona somente quando o campo SEQUENCIA na grid contém valor. Contudo quando o mesmo esta em branco gera exceção e o erro é exibido.

Teria alguma função no Visual Basic 6 que poderia passar um parâmetro default caso o campo esteja em branco?

Desde já agradeço.

Editado Maio 28, 2009 por Crispim

[kuroi]

acho q você teria q testar:

If vsfgLista.Cell(flexcpText, i, vsfgLista.ColIndex("SEQUENCIA")) <> "" Then
    SeqAtual = CInt(vsfgLista.Cell(flexcpText, i, vsfgLista.ColIndex("SEQUENCIA")))
Else
    SeqAtual = 0
End If[/code]

se for em branco, você coloca 0.


fica mais curto com Iif()
[code]SeqAtual = CInt(IIf(vsfgLista.Cell(flexcpText, i, vsfgLista.ColIndex("SEQUENCIA")) <> "", _
        vsfgLista.Cell(flexcpText, i, vsfgLista.ColIndex("SEQUENCIA")), 0))

[MRMB]

Opa...

Ficou fino!!! Funcionou ....

Obrigado.