0

Tenho um DataGridView que carrega todos os dados de uma tabela, todos os dados são do tipo Texto Curto no BD. Faço a chamada por uma instrução em SQL para exibir no DataGridView, até esse passo corre tudo bem, tudo é carregado e exibido perfeitamente!

O Problema é quando seleciono um registro (linha inteira), e peço para retornar este registro para um formulário que tem os respectivos campos para que eu consiga edita-los, para os campos no formulário do tipo TextBox vai tranquilo, mas o erro ocorre quando tento exibir o conteúdo em uma ComboBox. É nesta hora que dá o erro em anexo, e tal erro não consigo resolver.

Erro VB.Net 2015

Nesta Combobox, está restritivo 2 itens apenas, SIM e NÃO. Sem qualquer tipo de edição, somente seleção dos itens da lista.

No Módulo:

Public intCodigoFornecedor As Integer       ''TBL_Cadastrar_Fornecedores

No Form:
Private Sub PSelecionaFornecedor() ''Guarda o que foi selecionado  
            intCodigoFornecedor = CInt(dgvFornecedores.CurrentCell.Value.ToString())  
            Me.Dispose() ''Para esconder o Form  
    End Sub   

Private Sub PSelecionaFornecedor() ''Guarda o que foi selecionado  
        intCodigoFornecedor = CInt(CType(dgvFornecedores.CurrentRow().Cells("Codigo_Fornecedor").Value, String))  
        Me.Dispose() ''Para esconder o Form  
    End Sub

Já tentei destas 2 formas e não consigo resolver, alguém sabe?

1 Resposta 1

0

O erro acontece pois você esta tentando fazer a conversão da palavra "SIM" para int.

Te aconselho a fazer um if:

if dgvFornecedores.CurrentRow().Cells("Codigo_Fornecedor").Value = "SIM" then intCodigoFornecedor = 1 else intCodigoFornecedor = 0 end if

Dai basta usar a logica que você necessita.

2
  • Certo! Muito Obrigado! Deu Certo! Commented 20/05/2017 às 20:15
  • Por nada. Poderia marcar como resposta correta. Commented 22/05/2017 às 12:11

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .