动态生成合计

在最近的项目开发过程中，由于客户的需要，要对数据库中相同种类的货物进行汇总统计，经过多方面查阅，发现网上这方面的东西缺乏，于是就写了一个过程来实现这一功能。由不足之处请大家多多指正，多谢

程序中用到了第三方控件vsflexgrid,过程中变量vsgrid可以换成stringgrid但其中的部分代码要做必要的删除。

procedure heji(vsgrid:tvsflexgrid);

var

comn_num,heji,kk,ll:integer; //comn_num： vsgrid的列数 heji:保存合计值 kk:保存程序读取的行数之差

he:boolean;

begin

ceshi:=vsgrid.Rows-1;

he:=false;

try

for record_flag:=conm to ceshi do

begin

if he=true then begin //为真则合计出现过

if record_flag<conm then //跳过合计

begin

he:=false;

continue; //执行下一循环 跳过本循环

end;

end;

if (vsgrid.TextMatrix[record_flag,0]<>vsgrid.TextMatrix[record_flag 1,0]) then //判断相邻纪录是否同类型

begin //不相同则：

he:=true;

vsgrid.AddItem(vsgrid.textmatrix[record_flag,0] ''''合计'''',record_flag 1); //在record_flag处增加合计行

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有