Salnhack
07-09-2012, 23:23:31
Hola a todos espero que me puedan ayudar
Estoy Trabajando con QuickReport el problema es que a la hora de mostrar el resultado de una consulta solo me muestra una sola linea
Help PLEASE.
esta es mi consulta
with datamodule29.Query2 do
Begin
Close;
SQl.Clear;
SQL.Add('Select idmes from mes where mes=:pmes');
ParamByName('pmes').AsString:=suiDBLookupComboBox2.Text;
Open;
mes:=FieldByName('idmes').AsInteger;
Close;
SQl.Clear;
SQL.Add('Select * from mes where idmes=:pidmes');
ParamByName('pidmes').AsInteger:=mes;
Open;
inicio:=FieldByName('inicio').AsString;
fin:=FieldByName('fin').AsString;
Close;
SQL.Clear;
SQL.Add('Select cargat.carga, cargat.nocarga, cargat.fecha, tcomb.ntcomb from cargat,tcomb');
SQl.Add('Where cargat.fecha between :pinicio and :pfin and cargat.idtcomb=tcomb.idtcomb Order By cargat.fecha');
ParamByName('pinicio').AsString:=inicio;
ParamByName('pfin').AsString:=fin;
Open;
end;
Estoy Trabajando con QuickReport el problema es que a la hora de mostrar el resultado de una consulta solo me muestra una sola linea
Help PLEASE.
esta es mi consulta
with datamodule29.Query2 do
Begin
Close;
SQl.Clear;
SQL.Add('Select idmes from mes where mes=:pmes');
ParamByName('pmes').AsString:=suiDBLookupComboBox2.Text;
Open;
mes:=FieldByName('idmes').AsInteger;
Close;
SQl.Clear;
SQL.Add('Select * from mes where idmes=:pidmes');
ParamByName('pidmes').AsInteger:=mes;
Open;
inicio:=FieldByName('inicio').AsString;
fin:=FieldByName('fin').AsString;
Close;
SQL.Clear;
SQL.Add('Select cargat.carga, cargat.nocarga, cargat.fecha, tcomb.ntcomb from cargat,tcomb');
SQl.Add('Where cargat.fecha between :pinicio and :pfin and cargat.idtcomb=tcomb.idtcomb Order By cargat.fecha');
ParamByName('pinicio').AsString:=inicio;
ParamByName('pfin').AsString:=fin;
Open;
end;