【搞定】DATACHART的标签分组的问题**

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=11077

kd_xjx

如图, 我把自定义数据集删除后又重新赋值
图,的数据不对, 表的数据是对的.请帮我看看是怎么回事,图和表连的是一个数据集(自定义数据集)
    //chart buyer
    dataSetBuyer := DataSetBrokerJBXXBuyer.DataSet as TSQLDataSet;
    if not dataSetBuyer.Active then
        dataSetBuyer.Open;

    if not DataSetBrokerMyBuyer.DataSet.Active then
        DataSetBrokerMyBuyer.DataSet.Open;
    //delete DataSetBrokerMyBuyer data
    if not DataSetBrokerMyBuyer.DataSet.IsEmpty then
    begin
    DataSetBrokerMyBuyer.DataSet.First;
        while not DataSetBrokerMyBuyer.DataSet.Eof do
        begin
          DataSetBrokerMyBuyer.DataSet.Delete;
        end;
    end;
    DataSetBrokerMyBuyer.DataSet.Close;
    DataSetBrokerMyBuyer.DataSet.Open;
    dataSetBuyer.First;

    for i:=0 to dataSetBuyer.RecordCount-1 do
    begin
        buyer := dataSetBuyer.FieldByName('BUYER').AsString;
        quantity := dataSetBuyer.FieldByName('QUANTITY').AsInteger;

        if buyer = tempName then
        begin
            sumQuantity := sumQuantity + quantity;
            tempName := buyer;

            if i = dataSetBuyer.RecordCount-1 then
            begin
                DataSetBrokerMyBuyer.DataSet.Append;
                DataSetBrokerMyBuyer.DataSet.FieldByName('GDF').AsString := tempName;
                DataSetBrokerMyBuyer.DataSet.FieldByName('ZDL').AsInteger := sumQuantity;
                DataSetBrokerMyBuyer.DataSet.ApplyUpdates;
            end;
        end
        else
        begin
            if i > 0 then
            begin
                DataSetBrokerMyBuyer.DataSet.Append;
                DataSetBrokerMyBuyer.DataSet.FieldByName('GDF').AsString := tempName;
                DataSetBrokerMyBuyer.DataSet.FieldByName('ZDL').AsInteger := sumQuantity;
                DataSetBrokerMyBuyer.DataSet.ApplyUpdates;
            end;

            if i = dataSetBuyer.RecordCount-1 then
            begin
                DataSetBrokerMyBuyer.DataSet.Append;
                DataSetBrokerMyBuyer.DataSet.FieldByName('GDF').AsString := buyer;
                DataSetBrokerMyBuyer.DataSet.FieldByName('ZDL').AsInteger := quantity;
                DataSetBrokerMyBuyer.DataSet.ApplyUpdates;
            end;

            tempName := buyer;
            sumQuantity := quantity;
        end;

        dataSetBuyer.Next;
    end;

kd_xjx

12楼的代码,是"查询"按钮事件, 第一次使用结果正确,
之后就象12楼图片中的样子,都不正确,始终只有一个公司.

kd_xjx

解决了,自定义数据集FIRST一下就OK
结帖

atiger

ok