[[AzidRain]]

haz un query por cada linea de producto, es mas rápido:

Código Delphi [-]

sql_str := 'select count(if(barritas='Special' and marca='kellogs', 1,null) as c_barritas,'+
          'count(if(wafles='Special and marca='kellogs',1,null) as c_wafles,'+
          'count(if(pan='Special and marca='kellogs',1,null) as c_pan,'+ 
          'count(cereal) as c_cereal from market';
         
QueryMarket.SQL.Clear;
QUeryMarket.SQL.Add(sql_str);
QueryMarket.Open;

    
  txtcereal.Text:=QueryMarket.fieldByName('c_cereral').AsString;
  txtbarritas.Text:=QueryMarket.FieldBYName('c_barritas').AsString;
  txtwafles.Text:=QueryMarket.FieldByName('c_wafles').AsString;
  txtpan.Text:=QueryMarket.FieldByNAme('c_pan').AsString;
finally
QueryMarket.Close;  //Esto estaba mal cerrabas ventas y es market