GARANTIR DESCONTO

Fórum Como igualar um campo DB #205653

11/01/2004

0

Estou com 2 problemas em para igualar campos:

1º ) Campos que tem mascaras no banco de dados não copia: veja exemplo:


Table2Nome.Value := ComboBox1.text; Funciona
Table2Endereco.Value := Table1Endereco.Value; Funciona
Table2Complemento := Table1Complemento; não funciona
Table2Bairro.value := Table1Bairro.value; Funciona
Table2Cidade.Value := Table1Cidade.value; Funciona
Table2Uf.value := Table1Uf.value; Funciona
Table2Telefone01 := Table1TelRes01; Não funciona
Table2Telefone02 := Table1TelRes02; Não funciona
Table2Telefone03 := Table1TelCom01; Não funciona
Table2Telefone04 := Table1TelCom02; Não funciona

2º Tento igualar o campo código ( auto incremento ) num outro campo de outra tabela ( CodigoAcess ) dá um erro :

comando:

Table2CodAcess := Table1Codigo.value;

erro:

[Error] Unit13.pas(238): Incompatible types: ´TStringField´ and ´Integer´

E aí alguém tem alguma idéia ?////

Obrigado pela atenção...


Gigatel

Gigatel

Responder

Posts

11/01/2004

Programaker

Falaí cara!

Seguinte: o erro 2 no código ´Table2CodAcess := Table1Codigo.value;´
ocorreu porque você tá atribuindo um variant num TStringField. Por isso ele reclamou de Incompatible types. è só fazer
Table2CodAcess.Value := Table1Codigo.value; que deve resolver seu problema.

No problema 1, acho que a treta acontece por um motivo parecido. ao invés de atribuir um campo no outro do jeito que você tá fazendo, porque você não atribui os ´Values´ como nos outros? Assim você efetivamente vai atribuir o VALOR de um field no valor do outro field, ao invés de fazer um TField receber a referência de outro TField o que eu acredito que não tem nada a ver com o que você realmente quer fazer

Bom, já vou indo... tenho um exótico programa que fecha sozinho pra tratar (sabe como que arruma isso?). Espero que eu tenha podido te ajudar!


Responder

Gostei + 0

11/01/2004

Gigatel

Ptz! não acredito que dei esta mancada...estou Progamando a mais de 6 horas direto, deve ser por isso que dexei passar batido... Mas valeu pelo aviso Obrigadão....

E assim eles ficaram felizes para sempre..... hehehe


Responder

Gostei + 0

11/01/2004

Gigatel

Os outros problemas já foram resolvidos
más o codigo ainda está dando erro..
função

Table2CodAcess.Value := Table1Codigo.value

erro gerado

[Error] Unit13.pas(240): Incompatible types: ´String´ and ´Integer´

agora fiz tudo certinho...


Responder

Gostei + 0

11/01/2004

Alexdias

CONFIRA NA ESTRUTURA DAS TABELAS FISICAS POIS 01 DOS 2 CAMPOS ESTA COMO TEXTO ( STRING ) POIS A OUTRA COM CERTEZA E INTEGER POR SE TRATAR DE AUTOINCREMENTO...

MANDE- ME UM E-MAIL ...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar