de nuevo a lo mismo??, vistes la diferencia entre el codigo que te postee al principio y lo que tu escribistes, te lo coloco de nuevo para que sepas y veas el error:
En este codigo se graban los valores en la tabla1 y luego se busca por ese valor:
Código Delphi
[-]table1.edit;
table1.fieldvalues['campo1']:=edit1.text;
table1.post;
if table2.locate('CodigoCliente', table1.fieldvalues['codigocliente'], []) then
begin
table2.edit;
table2.fieldvalues['campo1']:=edit1.text;
table2.post;
end
else
ShowMessage('Error grave de referencialidad, ayudaaaaaaaaaa');
Tu lo tienes de esta manera, haces la busqueda antes de grabar los codigos en la tabla
Código Delphi
[-]
if table2.locate('CodigoCliente', table1.fieldvalues['codigocliente'], []) then
begin
table1.edit;
table1.fieldvalues['campo1']:=edit1.text;
table1.post;
table2.edit;
table2.fieldvalues['campo1']:=edit1.text;
table2.post;
end
else
ShowMessage('Error grave de referencialidad, ayudaaaaaaaaaa');
Si lo quieres como lo tienes, lo que debes es cambiar el origen de la busqueda.
Código Delphi
[-]
if table2.locate('CodigoCliente', edit1.Text, []) then
begin
table1.edit;
table1.fieldvalues['campo1']:=edit1.text;
table1.post;
table2.edit;
table2.fieldvalues['campo1']:=edit1.text;
table2.post;
end
else
ShowMessage('Error grave de referencialidad, ayudaaaaaaaaaa');