COMBOBOX NÃO RECEBE OS DADOS DA TABELA

NEGRON 08/09/2014 20:10:36
#441068
Boa noite Galera.. sou novo no VB.net e estou tendo alguns problemas.

Utilizei o Combobox com a propriedade que não deixa o usuário digitar o valor e sim selecioná-lo simplesmente ( DropDownStyle=> Dropdownlist)

até ai tudo bem.. mas quando faço a consulta e clico no registro pra preencher o combo com os dados simplesmente não aparece nada.
vejam o código a seguir
  
 Try
            FbConecta()
            fbCmd = New FbCommand(sql, FBconn)
            DR = fbCmd.ExecuteReader

            If DR.Read = True Then

                [ô]Funcoes.LimparCampos()
                FrmCadTarSocial.Txtcodigo.Text = DR.Item([Ô]CODIGO[Ô]).ToString
                FrmCadTarSocial.TxtNome.Text = DR.Item([Ô]NOME[Ô]).ToString
                FrmCadTarSocial.TxtEndereco.Text = DR.Item([Ô]ENDERECO[Ô]).ToString
                FrmCadTarSocial.Txtnumero.Text = DR.Item([Ô]NUMERO[Ô]).ToString
                FrmCadTarSocial.TxtBairro.Text = DR.Item([Ô]BAIRRO[Ô]).ToString
                FrmCadTarSocial.TxtComplemento.Text = DR.Item([Ô]COMPLEMENTO[Ô]).ToString
                FrmCadTarSocial.TxtRg.Text = DR.Item([Ô]RG[Ô]).ToString
                FrmCadTarSocial.MskCpf.Text = DR.Item([Ô]CPF[Ô]).ToString
                FrmCadTarSocial.MskNascimento.Text = DR.Item([Ô]NASCIMENTO[Ô]).ToString
                FrmCadTarSocial.TxtPai.Text = DR.Item([Ô]PAI[Ô]).ToString
                FrmCadTarSocial.Txtmae.Text = DR.Item([Ô]MAE[Ô]).ToString
                FrmCadTarSocial.MskRenda.Text = DR.Item([Ô]RENDA[Ô]).ToString
                FrmCadTarSocial.CbQtdPessoas.Text = DR.Item([Ô]QTDPESSOAS[Ô]).ToString
                FrmCadTarSocial.MskMatricula.Text = DR.Item([Ô]MATRICULA[Ô]).ToString
                FrmCadTarSocial.TxtTemmoradia.Text = DR.Item([Ô]MORADIA[Ô]).ToString
                FrmCadTarSocial.CbQtdFilhos.Text = DR.Item([Ô]QTDFILHOS[Ô]).ToString
                FrmCadTarSocial.CBImovel.Text = DR.Item([Ô]IMOVEL[Ô]).ToString
                FrmCadTarSocial.CbRecebBpc.Text = DR.Item([Ô]BPC[Ô]).ToString
                FrmCadTarSocial.CbBolsafami.Text = DR.Item([Ô]BOLSA[Ô]).ToString          
            End If


E quanto volto a propriedade para o normal onde o usuário pode digitar ele aceita normalmente os dados.....
Por favor galera me deêm uma luz porque não consegui resolver....... Desde já agradeço!!!!!
OMAR2011 09/09/2014 09:03:29
#441082
Tente assim.

FrmCadTarSocial.CbBolsafami.Items.Add(DR.Item([Ô]BOLSA[Ô]).ToString )

NEGRON 16/09/2014 21:45:19
#441275
Boa noite amigo..!!!!!

Também não deu certo.....Agradeço sua colaboração. valeu....
NILSONTRES 16/09/2014 23:14:45
#441283
Quando Dropdownlist, o Combo só carrega caso exista os itens já carrega na combo, ele compara e ai sim, se existir
aquele item correspondente ao que veio do banco ele apresenta, sendo assim, a propriedade text, deixa de funcionar se não existir
itens na combo.
Então, primeiramente carregue os itens na combo, mesmo assim vc podera ter problemas caso venha do banco algum dado
que tenha sido excluido da lista de itens.
Eu criei uma função que pega o valor do registro do banco, verifica os itens da combo, se não existir, ignora o erro, caso contrario
seleciona o index correspondente. Só não tenho como passar agora.

O estranho é que vc deveria estar recebendo um erro ai.
OMAR2011 17/09/2014 10:43:22
#441293
Vai deste jeito

While Dr.Read
Me.CbRecebBpc.Items.Add (Dr.Item([Ô]BPC[Ô]).ToString))
Me.CbBolsafami.Items.Add(DR.Item([Ô]BOLSA[Ô]).ToString ))
End While
Tópico encerrado , respostas não são mais permitidas
Voltar