动态生成合计
2006-02-04 13:41:01 来源：WEB开发网 闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹
闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷
濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹 闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤矂姊洪崷顓涙嫛闁稿妫濋幆鈧い蹇撴祩濡嫰姊洪崫鍕拱婵炲弶岣块幑銏犫攽婵犲嫮鏉搁梺鍝勬川婵兘鎮伴妷鈺傗拻濞达絽鎼敮璺侯熆閻熷府鏀荤紒鍌氱Т楗即宕煎锝呬壕闁哄啫鐗嗙粈鍐┿亜韫囧海顦﹀ù婊堢畺閺屻劌鈹戦崱娑扁偓妤€顭胯閸犳牠婀侀梺缁樕戦悷銉р偓姘煎枤缁粯銈ｉ崘鈺冨幈濡炪倖鍔戦崐鏇㈠几鎼淬劍鐓熼煫鍥ь儏閸旀粓鏌曢崶褍顏€殿喗娼欒灒闁告繂瀚濠碉紕鍋戦崐鎴﹀垂濞差亝鍋￠柍鍝勬噹缁犳牠鏌嶉埡浣告殲闁稿海鍠栭弻鏇㈠炊瑜嶇花濠氭煙閸戙倖瀚�
核心提示：在最近的项目开发过程中，由于客户的需要，动态生成合计，要对数据库中相同种类的货物进行汇总统计，经过多方面查阅，最大行+1不存在，所以有一条记录无法计算，发现网上这方面的东西缺乏，于是就写了一个过程来实现这一功能
在最近的项目开发过程中，由于客户的需要，要对数据库中相同种类的货物进行汇总统计，经过多方面查阅，发现网上这方面的东西缺乏，于是就写了一个过程来实现这一功能。由不足之处请大家多多指正，多谢
程序中用到了第三方控件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处增加合计行
for comn_num:=5 to vsgrid.Cols-1 do //循环计算要合计的字段值
begin heji:=0;
for record_flag2:=conm to record_flag do //从conm处开始计算
begin
if (trim(vsgrid.TextMatrix[0,col])='周计划') or (trim(vsgrid.TextMatrix[0,comn_num])='上周欠产') or (trim(vsgrid.TextMatrix[0,comn_num])='当日')
or (trim(vsgrid.TextMatrix[0,comn_num])='累计') or (trim(vsgrid.TextMatrix[0,comn_num])='欠产') then
begin
// if (vsgrid.TextMatrix[record_flag,6]='直供机') or (vsgrid.TextMatrix[record_flag,6]='内提机') then
heji:=strtoint(vsgrid.TextMatrix[record_flag2,comn_num])+heji; //保存合计值
vsgrid.Select(record_flag+1,comn_num); //
vsgrid.CellForeColor:= clwhite; //给合计换颜色
vsgrid.Text:=inttostr(heji); //给vsgrid的cell负值
vsgrid.Select(record_flag+1,11);
vsgrid.Text:=vsgrid.TextMatrix[record_flag,11];
vsgrid.Select(record_flag+1,12);
vsgrid.Text:=vsgrid.TextMatrix[record_flag,12];
end;
end;
vsgrid.Select(record_flag+1,col);
vsgrid.CellBackColor:=clhighlight; //改变背景颜色
end;
conm:=record_flag+2; //增加合计后 conm+2 跳过合计
ceshi:=vsgrid.Rows; //vsgrid增加了一行，重新负值
end;
end;
except
kk:=vsgrid.Rows-record_flag;
end;
//由于当循环到最后两条记录时，record_flag+1不存在所以有一条记录无法计算，在这里处理，代码如下：
kk:=vsgrid.Rows-record_flag; //计算行数与比较过的行数之差
if kk>1 then ll:=1 else ll:=0;
if (record_flag+kk)=vsgrid.Rows then
begin
vsgrid.AddItem(vsgrid.textmatrix[record_flag+kk-1,0]+'合计',record_flag+kk);
for comn_num:=5 to vsgrid.Cols-1 do
begin heji:=0;
for record_flag2:=conm to record_flag+ll do
begin
if (trim(vsgrid.TextMatrix[0,col])='周计划') or (trim(vsgrid.TextMatrix[0,comn_num])='上周欠产') or (trim(vsgrid.TextMatrix[0,col])='当日')
or (trim(vsgrid.TextMatrix[0,col])='累计') or (trim(vsgrid.TextMatrix[0,comn_num])='欠产') then
begin
heji:=strtoint(vsgrid.TextMatrix[record_flag2,comn_num])+heji;
vsgrid.Select(record_flag+kk,comn_num);
vsgrid.CellForeColor:= clwhite;
vsgrid.Text:=inttostr(heji);
vsgrid.Select(record_flag+kk,11);
vsgrid.Text:=vsgrid.TextMatrix[record_flag+kk-1,11];
vsgrid.Select(record_flag+kk,12);
vsgrid.Text:=vsgrid.TextMatrix[record_flag+kk-1,12];
end;
end;
vsgrid.Select(record_flag+kk,comn_num);
vsgrid.CellBackColor:=clhighlight;
end;
exit;
end;
上述算法很简单，首先把相邻的两Rows德number付给两个变量，然后比较这两行的种类字段值，相同的话，继续负值，不相同的话，就在Rows值最大的行上插入和集字段,然后在这一行上合计要进行合计的字段值，合计完毕后，跳过合计行，继续执行。由于当循环到最后两条记录时，最大行+1不存在，所以有一条记录无法计算，程序最后对这种情况单独处理。
中查找“动态生成合计”更多相关内容
中查找“动态生成合计”更多相关内容更多精彩
赞助商链接
