【结】[请求] datagrid 的 页脚统计,死循环**

tdwoo

怎么控制,页脚只执行依次.


procedure TYQCKBB.DataGridColumn3DrawSummaryFooter(Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: string; var AAlignment: TAlignment; AFont: TFont; var AColor: Integer; var ADone: Boolean);
var
   i,j,k : integer;
   str1 : string;
   bFound:boolean;
begin
     // 自己统计数量
     j:=0;
     ListBox1.Items.Clear;
     DataSetBrokerYQCKSJJ.dataset.first;
     for i:=1 to DataSetBrokerYQCKSJJ.DataSet.RecordCount do
     begin
         str1:=DataSetBrokerYQCKSJJ.DataSet.FieldByName('客户名称').AsString;
         bFound:=false;
         for k:=0 to  listbox1.Items.Count-1 do
         begin
            if str1= listbox1.Items[k]  then
            begin
               bFound:=true;
               break;
            end;
         end;
         if not bfound then
         begin
            j:=j+1;
            listbox1.Items.add(str1);
         end;
         DataSetBrokerYQCKSJJ.dataset.Next;
     end;

     aText:= sysutils.IntToStr(j);
end;

tdwoo

自己设置页脚统计,需要设置哪些属性.在datagrid, 列 上

tdwoo

还需要设置哪些属性呢????????

tdwoo

死循环,页脚一直在闪烁

allentime

在线等待…………

tdwoo

在线等, 急

atiger

不要在当前数据集上循环，你直接用个select 语句来计算，然后把结果复制给这个数据集的页脚汇总。

tdwoo

我先试试

tdwoo

可以,谢谢了

atiger

不客气，结