【结贴】关于DataGrid中分组后取值问题!急!!!!**

jiaogl

用户在DataGrid中设置了分组,如何通过代码取得每一分组的合计值???!!!!!

jiaogl

顶上来!
帮忙解决一下好么?!

lixy

正在做

jiaogl

哦,谢了先!

lixy

有一种实现方式，你看一下，但只能统计当前游标记录组的合计：

1、在数据集上加一个[B]统计字段[/B] ，
  注意这个属性[U] groupingLevel[/U] ，如果你是1级分组，就设1，要统计2级分组就设2

2、用DataSetBroker取值：
  dialogs.showmessage(DataSetBroker1.DataSEt.FieldByname('TJZD1').AsString)

jiaogl

我的需求是通过代码计算全部分组的合计!

lixy

dataset游标循环，然后用分组字段区分组

dataset.next

可以统计下个分组的

jiaogl

怎么确定当前分组中的记录数?如果是按照三列分组??

jiaogl

最初由 jiaogl 发布
[B]我的需求是通过代码计算全部分组的合计! [/B]

这里说的全部分组是指:对每一个分组中的记录求合计!!!

lixy

function TMainForm.GetIndexStr():string;
var
   i:integer;
begin

   result:='';
   for i:=0 to  DataSetBroker1.DataSet.IndexFieldCount-1 do
   begin
        result:=result+DataSetBroker1.DataSet.IndexFields.AsString;
   end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
   indexStr1,indexStr2:string;
begin
     testgroup.Ttestgroup(InfoBrokerTESTGROUP).FIELD_BZSJJ1_TJZD1.GroupingLevel:=DataSetBroker1.DataSet.IndexFieldCount;
     indexStr1:='';
     indexStr2:='';
     DataSetBroker1.DataSet.First;
     while not   DataSetBroker1.DataSet.Eof do
     begin
          indexStr1:=GetIndexStr;
          if   indexStr2<>indexStr1 then
          begin
               Memo1.Lines.Add(DataSetBroker1.DataSEt.FieldByname('TJZD1').AsString);
               indexStr2:=indexStr1;
          end;
         DataSetBroker1.DataSet.Next;
     end;

end;