erro Could not convert variant of type (Null) into type (OleStr)

Delphi

28/05/2012

pessoal tenho este código:
procedure TfrmEntradaProduto.DBGrid1ColExit(Sender: TObject);
var codProduto :integer;
begin
if DBGrid1.SelectedIndex=4 then (Ele faz a contagem certa e quando começa a executar)
begin
cdsProduto.Edit;
codProduto:=strtoint(DBGrid1.Fields[1].Value); //nessa acontece o erro cdsProduto.Locate(idProduto,codProduto,[]);
cdsProdutoEntradaProduto.Value:=cdsProdutoEntradaProduto.Value+dbgrid1.Fields[2].Value;
cdsProdutoDataEntrada.Value:=strtodate(txtdataEntrada.Text);
cdsProdutoSaldo.Value:= cdsProdutoEstoqueInicial.Value+cdsProdutoEntradaProduto.Value;
cdsProdutoDataSaldo.Value:=strtodate(txtdataentrada.Text);
cdsProduto.Post;
end;

end;
bom ele faz a contagem certa e na linha marcada ele apresenta esse erro Could not convert variant of type (Null) into type (OleStr), alguém pode me ajudar.
Salomao.coelho

Salomao.coelho

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

28/05/2012

Depure o código e verifique o conteúdo do campo DBGrid1.Fields[1].Value
GOSTEI 0
Salomao.coelho

Salomao.coelho

28/05/2012

Depure o código e verifique o conteúdo do campo DBGrid1.Fields[1].Value


aparece Null, sendo que eu coloquei um valor na coluna do DbGrid
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

28/05/2012

O DBGrid está ligado a um DataSource que, por sua vez, está ligado a um DataSet, certo? Tente obter os dados do dataset.
GOSTEI 0
William

William

28/05/2012

Você tem certeza que é Fields[1], lembre - se que os Fields inicia em [0].
GOSTEI 0
POSTAR