动态生成合计

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

程序中用到了第三方控件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

  1<conm (vsgrid.textmatrix[record_flag,0]<="" begin="" continue;="" end;="" he:="false;" if="" then="" 执行下一循环="" 跳过合计="" 跳过本循环="">vsgrid.TextMatrix[record_flag+1,0]) then //判断相邻纪录是否同类型 
  2
  3begin //不相同则： 
  4
  5he:=true; 
  6
  7vsgrid.AddItem(vsgrid.textmatrix[record_flag,0]+'合计',record_flag+1); //在record_flag处增加合计行 
  8
  9for comn_num:=5 to vsgrid.Cols-1 do //循环计算要合计的字段值 
 10
 11begin heji:=0; 
 12
 13for record_flag2:=conm to record_flag do //从conm处开始计算 
 14
 15begin 
 16
 17if (trim(vsgrid.TextMatrix[0,col])='周计划') or (trim(vsgrid.TextMatrix[0,comn_num])='上周欠产') or (trim(vsgrid.TextMatrix[0,comn_num])='当日') 
 18
 19or (trim(vsgrid.TextMatrix[0,comn_num])='累计') or (trim(vsgrid.TextMatrix[0,comn_num])='欠产') then 
 20
 21begin 
 22
 23// if (vsgrid.TextMatrix[record_flag,6]='直供机') or (vsgrid.TextMatrix[record_flag,6]='内提机') then 
 24
 25heji:=strtoint(vsgrid.TextMatrix[record_flag2,comn_num])+heji; //保存合计值 
 26
 27vsgrid.Select(record_flag+1,comn_num); // 
 28
 29vsgrid.CellForeColor:= clwhite; //给合计换颜色 
 30
 31vsgrid.Text:=inttostr(heji); //给vsgrid的cell负值 
 32
 33vsgrid.Select(record_flag+1,11); 
 34
 35vsgrid.Text:=vsgrid.TextMatrix[record_flag,11]; 
 36
 37vsgrid.Select(record_flag+1,12); 
 38
 39vsgrid.Text:=vsgrid.TextMatrix[record_flag,12]; 
 40
 41end; 
 42
 43end; 
 44
 45vsgrid.Select(record_flag+1,col); 
 46
 47vsgrid.CellBackColor:=clhighlight; //改变背景颜色 
 48
 49end; 
 50
 51conm:=record_flag+2; //增加合计后 conm+2 跳过合计 
 52
 53ceshi:=vsgrid.Rows; //vsgrid增加了一行，重新负值 
 54
 55end; 
 56
 57end; 
 58
 59except 
 60
 61kk:=vsgrid.Rows-record_flag; 
 62
 63end; 
 64
 65//由于当循环到最后两条记录时，record_flag+1不存在所以有一条记录无法计算，在这里处理，代码如下： 
 66
 67kk:=vsgrid.Rows-record_flag; //计算行数与比较过的行数之差 
 68
 69if kk&gt;1 then ll:=1 else ll:=0; 
 70
 71if (record_flag+kk)=vsgrid.Rows then 
 72
 73begin 
 74
 75vsgrid.AddItem(vsgrid.textmatrix[record_flag+kk-1,0]+'合计',record_flag+kk); 
 76
 77for comn_num:=5 to vsgrid.Cols-1 do 
 78
 79begin heji:=0; 
 80
 81for record_flag2:=conm to record_flag+ll do 
 82
 83begin 
 84
 85if (trim(vsgrid.TextMatrix[0,col])='周计划') or (trim(vsgrid.TextMatrix[0,comn_num])='上周欠产') or (trim(vsgrid.TextMatrix[0,col])='当日') 
 86
 87or (trim(vsgrid.TextMatrix[0,col])='累计') or (trim(vsgrid.TextMatrix[0,comn_num])='欠产') then 
 88
 89begin 
 90
 91heji:=strtoint(vsgrid.TextMatrix[record_flag2,comn_num])+heji; 
 92
 93vsgrid.Select(record_flag+kk,comn_num); 
 94
 95vsgrid.CellForeColor:= clwhite; 
 96
 97vsgrid.Text:=inttostr(heji); 
 98
 99vsgrid.Select(record_flag+kk,11); 
100
101vsgrid.Text:=vsgrid.TextMatrix[record_flag+kk-1,11]; 
102
103vsgrid.Select(record_flag+kk,12); 
104
105vsgrid.Text:=vsgrid.TextMatrix[record_flag+kk-1,12]; 
106
107end; 
108
109end; 
110
111vsgrid.Select(record_flag+kk,comn_num); 
112
113vsgrid.CellBackColor:=clhighlight; 
114
115end; 
116
117exit; 
118
119end; 
120
121上述算法很简单，首先把相邻的两Rows德number付给两个变量，然后比较这两行的种类字段值，相同的话，继续负值，不相同的话，就在Rows值最大的行上插入和集字段,然后在这一行上合计要进行合计的字段值，合计完毕后，跳过合计行，继续执行。由于当循环到最后两条记录时，最大行+1不存在，所以有一条记录无法计算，程序最后对这种情况单独处理。</conm>