For i:=0 to DBGrid1.Columns.Count-1 do
begin
if i=DBGrid1.Columns.Count-1 then
begin
DBGrid1.Columns[i].Title.Caption:='总计不良率';
DBGrid1.Columns[i].Width:=70;
end
else
if i=0 then
begin
DBGrid1.Columns[i].Title.Caption:='料品编码';
DBGrid1.Columns[i].Width:=90;
end
else
begin
DBGrid1.Columns[i].Width:=65;
if (i=1) or (((i+3) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='段别'
else if (i=2) or (((i+2) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='作业群组'
else if (i=3) or (((i+1) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='段别名称'
else if (i mod 4)=0 then DBGrid1.Columns[i].Title.Caption:='不良率';
end;
end;