如果是要在最下面显示合计,写个求和函数, function RGrid.CalQtySum(iCol: Integer): Real; var i:Integer; rSum:Real; begin rSum:=0; for i:=FixedRows to RowCount-1 do if (Trim(Cells[iCol,i])<>'') and (Trim(Cells[iCol,i])<>'-') then rSum:=rSum+StrToFloat(Trim(Cells[iCol,i])); Result:=rSum; end;这是将StringGrid某列求和的函数,
function RGrid.CalQtySum(iCol: Integer): Real;
var i:Integer;
rSum:Real;
begin
rSum:=0;
for i:=FixedRows to RowCount-1 do
if (Trim(Cells[iCol,i])<>'') and (Trim(Cells[iCol,i])<>'-') then
rSum:=rSum+StrToFloat(Trim(Cells[iCol,i]));
Result:=rSum;
end;这是将StringGrid某列求和的函数,