pasar de una tabla a otra
 

Hola, estoy tratando de pasar un dato de una tabla a otra.
Les explico, lo primero que hago es mostrar el ultimo registro de la tabla venta:

Código Delphi [-]
ADOQuery1.Close;
ADOQuery1.SQL.Add('Select Max(id_numero) From venta');
ADOQuery1.Open;
Label1.Caption:= IntToStr(ADOQuery1.Fields[0].AsInteger);

Luego quiero guardar ese dato y otros que va ingresando el usuario en la tabla detalle

Código Delphi [-]
ADOQuery2.Append;
ADOQuery2.FieldByName('dt_id').Value := //aquí quiero guardar el id_numero          
ADOQuery2.FieldByName('dt_nom').Value :=edit1.Text;
ADOQuery2.FieldByName('dt_can').Value :=edit2.Text;
ADOQuery2.Post;

Lo que intento hacer es pasar el dato que tiene id_numero(tabla venta) a dt_id(tabla detalle)

Muchas Gracias

Hola
Hay muchas maneras, esta es una:

Código Delphi [-]
ADOQuery2.Append;
ADOQuery2.FieldByName('dt_id').Value := StrToInt(Label1.Caption); 
ADOQuery2.FieldByName('dt_nom').Value :=edit1.Text;
ADOQuery2.FieldByName('dt_can').Value :=edit2.Text;
ADOQuery2.Post;

Ya que el dato lo esta capturando el label1.
Saludos

Hola, gracias por la ayuda, funciona bien.
Como podría lograr el mismo resultado, si en lugar de capturar el dato en un label lo capturo en una variable.

Hola
No te parece que a esta hora estas pidiendo demasiado :D:D;)

Creamos una variable global, osea donde esta:

Código Delphi [-]
var
  Form1: TForm1;
 a: integer;

implementation

Aqui recogemos el dato:

Código Delphi [-]
ADOQuery1.Close;
ADOQuery1.SQL.Add('Select Max(id_numero) From venta');
ADOQuery1.Open;
a:= ADOQuery1.Fields[0].AsInteger;

Ahora lo tomamos:

Código Delphi [-]
ADOQuery2.Append;
ADOQuery2.FieldByName('dt_id').Value := a;        
ADOQuery2.FieldByName('dt_nom').Value :=edit1.Text;
ADOQuery2.FieldByName('dt_can').Value :=edit2.Text;
ADOQuery2.Post;

Saludos

Nuevamente Muchas Gracias.