COMBOBOX COM DATABINDINGS
Bom dia meus amigos.
Estou utilizando o DataBindings para os registros da tabela:
TxtCodigo.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]codigo[Ô])
TxtNome.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]nome[Ô])
TxtCidade.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]cidade[Ô])
CmbEstado.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]estado[Ô])
O problema é que quando clico no botão de Salvar, o campo estado grava NULL na tabela.
Tentei alterar para:
CmbEstado.DataBindings.Add([Ô]SelectedValue[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]estado[Ô])
mesmo assim não deu.
Onde é que estou errando?
Estou utilizando o DataBindings para os registros da tabela:
TxtCodigo.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]codigo[Ô])
TxtNome.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]nome[Ô])
TxtCidade.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]cidade[Ô])
CmbEstado.DataBindings.Add([Ô]Text[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]estado[Ô])
O problema é que quando clico no botão de Salvar, o campo estado grava NULL na tabela.
Tentei alterar para:
CmbEstado.DataBindings.Add([Ô]SelectedValue[Ô], dsempresas.Tables([Ô]Empresas[Ô]), [Ô]estado[Ô])
mesmo assim não deu.
Onde é que estou errando?
Bom dia,
Tenta colocar em uma string antes de armazenar. Bom acho que isso seria meio que uma gambiarra, mas tenta assim
Tenta colocar em uma string antes de armazenar. Bom acho que isso seria meio que uma gambiarra, mas tenta assim
Dim StrCmbEstado As String
StrCmbEstado = CmbEstado.SelectedItem
CmbEstado.DataBindings.Add( strCmbEstado, dsempresas.Tables([Ô]Empresas[Ô]), [Ô]estado[Ô])
Tópico encerrado , respostas não são mais permitidas