小弟要做一个统计,将表中的Price字段对应的数据进行相加,然后保存在一个窗体的Edit.Text 上.
请前辈们指点............

解决方案 »

  1.   

    用个 循环 
    或 用TClientDataSet.
      

  2.   

    可以用一个DBSumList  Edit.Text :=CurrToStr(DBSumList1.SumCollection.GetSumByOpAndFName(goSum,'V_EB').SumValue);//'V_EB'是要求和的字段
      

  3.   

    用循环
    var
      sum :integer;
    begin
      sum := 0;
      adoquery1.first;
      while adoquery1.eof do
      begin
        sum := sum + adoquery1.fieldbyname('price').asinteger;
        adoquery1.next;
      end;
    end;
      

  4.   

    var
      sum :integer;
    begin
      sum := 0;
      DBGrid1.datasource.dataset.first;
      while DBGrid1.datasource.dataset.eof do
      begin
        sum := sum + DBGrid1.datasource.dataset.fieldbyname('price').value;
        DBGrid1.datasource.dataset.next;
      end;
    end;
      

  5.   

    可以使用第三方的类似dbgrid的控件。如果不用,你可以循环求和,也可以重新查询一次,查询时求和。
      

  6.   

    可以使用MIDAS的DB加速器中的TXDatasource,有自动合计字段的功能.