Un par de ayuditas

[[eduarcol]]

Hola, bienvenido a Delphi, seria bueno que leyeras la guia de estilo

Para que te responda de manera mas facil encierra el codigo entre etiquetas es mas facil para quien te vaya a ayudar

Respecto a tu problema si no dices el error solo puedo tratar de adivinar, asi que adivinando te podria decir que tienes que abrir la tabla

Código Delphi [-]
procedure TAltas.PO(Sender: TObject);
begin
   Con_Art_Bar.SQL.Clear;
   Con_Art_Bar.active := False;
   Con_Art_Bar.SQL.Add('SELECT Min(Precio) AS minimo, Articulo, Nombre, ');
   Con_Art_Bar.SQL.Add('Precio, Fecha, Ultimo_precio, Fecha_ultima,    Cod_Art');
   Con_Art_Bar.SQL.Add('FROM proveedores, articulos');
   Con_Art_Bar.SQL.Add('where proveedores.Cod_Proveedor = Articulos.Cod_Proveedor');
   Con_Art_Bar.SQL.Add('GROUP BY Articulo, Nombre, Precio, ');
   Con_Art_Bar.SQL.Add('Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
   Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');
   Con_Art_Bar.active := True;
   DBText1.Visible := True;
   DBText2.Visible := True;
   DBText3.Visible := True;
   DBText4.Visible := True;
   DBText5.Visible := True;
   DBText7.Visible := True;
end;

Fijate en la linea que esta resaltada prueba y dinos que tal te va

PD: Mira lo bien que se ve el codigo entre etiquetas

edito: 4 respuestas al mismo tiempo, ejejejeje despues dicen q aqui no ayudan