2021
Agrupar linhas e totalizar colunas RxDBGrid
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

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.