pasar un dato de una tabla a otra

[betty_loo]

este es el codigo que utilizo para llamar el dato de la otra forma
tbodtodt = es el nombre de la forma 1
descripcion es la forma 2

SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;
showmessage(inttostr(pac)) ;
showmessage(floattostr(sigodt));
descripcion.DBEdit1.Text := (inttostr(pac));

[[Caral]]

Hola
Yo me pregunto, viste el ejemplo del wiki que te mencione?.
Por que hace eso que pides, me extraña que sigas con el problema.
Saludos

[betty_loo]

si lo cheque y es lo que yo tengo

[[eduarcol]]

no entendi para nada tu codigo, podrias explicar cuales son variables y cuales estan en que formulario?

[betty_loo]

tengo una forma que tiene un boton de agregar
En el botón de agrega r tengo este código

application.createform(todtedi,odtedi);
odtedi.show;
odt.hide;
a:= 1;
odtedi.show;
odtedi.add;
query1.close;
query1.open;

y manda a llamar a otra forma

Al ingresar los datos doy clic en el botón siguiente que tiene este codigo

var cia:double;
begin
SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;

showmessage(inttostr(pac)) ;
showmessage(floattostr(sigodt));

descripcion.DBEdit1.Text := (inttostr(pac));
SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;
descripcion.DBEdit1.Text := dbedit1.text;
begin
if tbodt.State in[dsinsert] then
valida;
if tbodt.State in[dsedit] then
begin

tbodt.post;
showmessage('*** El registro Se Modifico ***');
sw := 0;
end;
if tbodt.State in[dsinsert] then
begin
if sw = 0 then
begin
if tbodt.state in[dsinsert] then
begin
tbodt.post;
tbodt.Insert;
odtedi.hide;
descripcion.add;
descripcion.DBEdit1.Text := odtedi.DBEdit1.text;
// application.createform(tdescripcion,descripcion);
descripcion.show;
end;
end
end;
sw:=0;
end;

y se guarda y borra todo el contenido de los dbedit’s y no guarda valor del dbedit que quiero que pase a la otra pantalla,

El valor que quiero conservar es el de odt nº que es el campo que viene al principio en ambas pantallas y es la clave principal de las dos tablas

[[egostar]]

No entiendo mucho tu código, pero por lo que comentas, no creo que pase el dato a la tercera ventana ya que no veo ninguna variable que estes usando para conservar el valor, recuerda que cuando cierras las tablas todo dato que contenga se "pierde".

Yo lo que haría es usar una variable en la tercera ventana donde quede almacenado ese dato que requieres antes de cerrar las tablas.

Salud OS