Fórum Autopreenchimento da tabela #574935
14/02/2017
0
Estou precisando de uma ajuda de vocês...
Tenho que preencher todos os campos que permanecerem em branco dentro de uma tabela de forma a não ficar nenhum vazio. Todos os campos são do tipo TEXT, e se o usuário não preencher um deles, automaticamente será assumido o valor " ( ===== ) ".
Estou tentando usar o seguinte código, porém, sem êxito.
procedure Tdm_.QryMateriasBeforePost(DataSet: TDataSet);
Var
X: Integer;
begin
for X := 0 to (dm_.QryMaterias.FieldCount-1) do
begin
if (dm_.QryMaterias.Fields[X].AsString = '') then
dm_.QryMaterias.Fields[X].Text := '( ===== )';
end;
end;
Se alguém aí puder me ajudar, ficarei muito grato....
Att.,
LUCK.
Aloisio Santos
Curtir tópico
+ 0Posts
14/02/2017
Vinicius Apolinário
Você precisa fazer isso após a postagem no bd?
Qual é o componente que o usuário vai digitar as informações?
Qual a forma de postagem no banco de dados?
Gostei + 0
14/02/2017
Ricardo Araujo
Você esta usando DBEdit ou Edit para grava as informações no banco de dados?
Gostei + 0
15/02/2017
Aloisio Santos
Você esta usando DBEdit ou Edit para grava as informações no banco de dados?
RBBarreto, estou usando DBEdit...
E qdo vi sua pergunta, entendi que não posso usar diretamente os campos da tabela para isso. Então, fiz pelo componente e consegui o que queria.
Desde já muito obrigado.
POST RESOLVIDO.
Gostei + 0
15/02/2017
Aloisio Santos
Fiquem com Deus.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)