ADO E ValueListEditor
Boa tarde a todos
Como ler um ValueListEditor, usando o ADOConnection?
Trabalho com BDS2006 E Firebird 1.5
Como ler um ValueListEditor, usando o ADOConnection?
Trabalho com BDS2006 E Firebird 1.5
Mcamilo.o
Curtidas 0
Respostas
Marciodossantosprog
09/04/2008
Pela idade dos post, talvez você já tenha conseguido uma solução. De qualquer forma, isto é o que faço para utilizar o componente:
1 - Para popular o TValueListEditor
With qryLocal Do
Begin
First;
While Not Eof Do
Begin
vleReceitasDoFechamento.InsertRow(
qryLocal.FieldByName(´NomeDaForma´).AsString,
FormatFloat(´#,,,0.00´,
qryLocal.FieldByName(´ValorApresentado´).AsFloat), True);
Next;
End;
End;
2 - Para persistir os valores informados pelo usuário
qryLocal.Edit;
qryLocal.FieldByName(´ValorApresentado´).AsFloat := StrToFloat(
RemoveCaracterInvalido( vleReceitasDoFechamento.Cells[1, i], ´.´ ) );
qryLocal.Post;
Este é só um exemplo bastante simples. Vc pode reproduzir a estrutura de tua tabela para o valuelisteditor e depois, fazer o processo contrário com os dados informados.
Abraços, espero ter ajudado.
1 - Para popular o TValueListEditor
With qryLocal Do
Begin
First;
While Not Eof Do
Begin
vleReceitasDoFechamento.InsertRow(
qryLocal.FieldByName(´NomeDaForma´).AsString,
FormatFloat(´#,,,0.00´,
qryLocal.FieldByName(´ValorApresentado´).AsFloat), True);
Next;
End;
End;
2 - Para persistir os valores informados pelo usuário
qryLocal.Edit;
qryLocal.FieldByName(´ValorApresentado´).AsFloat := StrToFloat(
RemoveCaracterInvalido( vleReceitasDoFechamento.Cells[1, i], ´.´ ) );
qryLocal.Post;
Este é só um exemplo bastante simples. Vc pode reproduzir a estrutura de tua tabela para o valuelisteditor e depois, fazer o processo contrário com os dados informados.
Abraços, espero ter ajudado.
GOSTEI 0