联想不该认命PC老四

if qryformx.Active then
qryformx.Close;
qryformx.createdataset;
qryformx.Open;
qryformx.AddIndex('qryformxIndex1','pzh;bm;mc;ybbm;ybmc;sglxbm;sglx;sgysbm;sgys',[],'', '',9);
{ 给数据集指定此索引 }
qryformx.IndexName := 'qryformxIndex1';
qryformx.Close;
with TAggregateField.Create(Self) do begin
FieldName := 'pricesum';
Expression := 'Sum(price)';
IndexName := 'qryformxIndex1';
GroupingLevel := 9;
Active := True;
OnGetText := qryformxpricesumGetText;
DataSet := qryformx;
end;
qryformx.open;
qryformx.AggregatesActive := True;
本文出自 “一切有为法，如梦幻泡影” 博客，请务必保留此出处http://kaixinbuliao.blog.51cto.com/2567365/1670210