2021

Agrupar linhas e totalizar colunas RxDBGrid

Por Daniel Morais

Autor: Daniel de Morais

Neste vídeo vou mostrar como Agrupar produtos pelo grupo, somar a coluna de cada grupo com o rxdbGrid.

  tbGrupo.Open;
  tbPRODUTO.IndexFieldNames:='PRO_GRUPO, PRO_DESCRICAO';
  tbPRODUTO.Open;

  RxDBGrid1.GroupItems.GroupFieldName:='pro_grupo';

  RxDBGrid1.ColumnByFieldName('pro_valorvenda').GroupParam.ValueType:=fvtSum;
  RxDBGrid1.ColumnByFieldName('pro_valorvenda').GroupParam.Alignment:=taRightJustify;

  RxDBGrid1.ColumnByFieldName('pro_grupo').GroupParam.ValueType:=fvtCount;
  RxDBGrid1.ColumnByFieldName('id_produto').GroupParam.ValueType:=fvtStaticText;
  RxDBGrid1.ColumnByFieldName('id_produto').GroupParam.StaticText:='Total Valor Venda/Nro Registros:';

  RxDBGrid1.ColumnByFieldName('gru_descricao').GroupParam.ValueType:=fvtFieldValue;
  RxDBGrid1.ColumnByFieldName('gru_descricao').GroupParam.Alignment:=taCenter;
  RxDBGrid1.ColumnByFieldName('gru_descricao').GroupParam.Color:=clRed;
  RxDBGrid1.GroupItems.Color:=clSkyBlue;
  RxDBGrid1.GroupItems.Active:= true;

Ah, deixe seu like !!!!

😉 Gostou do vídeo, que tal me doar um cafezinho?

☕ https://picpay.me/dane.infocotidiano​

Doar com PagSeguro: https://pag.ae/7W6uXEqB1

Inscreva-se no canal do ACBr
Inscreva-se no cana do Daniel
The following two tabs change content below.
Comecei na área de TI há um bom tempo (1991) com aqueles cursos de MS-DOS 6.22, WordStar, Lotus123, Dbase III Plus, etc. Adorei programar em Dbase III Plus utilizando Dbf; achei fantástico quando aprendi a programar em Clipper Summer 87 e posteriormente Clipper 5.x, que era muito estável em rede utilizando Novell NetWare. Desde então sou um fanático por TI. Hoje desenvolvo aplicações para Windows, Android, OS X e Linux utilizando Lazarus (free Pascal) . Blogueiro (www.infocotidiano.com.br, www.aprendalazarus.com.br, www.startdb.info). Além dos meus Blogs tenho um canal no YouTube o www.youtube.com.br/infocotidiano onde tenho mais de 1 Milhão de visualizações com vídeos de dicas diversificadas que vão desde solucionar um erro de impressão, curso sobre banco de dados, até criar software multi-plataforma utilizando o Lazarus.