首页 > 其他 > 详细

clientdataset 实现分组和索引

时间:2015-07-02 17:42:43      阅读:169      评论:0      收藏:0      [点我收藏+]

  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

clientdataset 实现分组和索引

原文:http://kaixinbuliao.blog.51cto.com/2567365/1670210

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!