pasar de una tabla a otra

[[Caral]]

Hola
No te parece que a esta hora estas pidiendo demasiado

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