报表中对数据集排序、筛选及回写打印时间

zhouyangping

排序
在报表代码里 begin end 中第一行写

1. begin
   
2.   TCustomADODataSet(TfrxDBDataSet(MasterData1.DataSet).DataSet).Sort :='sSalesGroupName,sSalesName';
   
3. end.

复制代码

或

1. begin
   
2. TCustomADODataSet(TfrxDBDataSet(Report.GetDataset('NAME')).DataSet).Sort :='sSalesGroupName,sSalesName';
   
3. end.

复制代码

筛选
在报表代码里 begin end 中第一行写

1. begin
   
2.   TCustomADODataSet(TfrxDBDataSet(MasterData1.DataSet).DataSet).Filter := 'bSelected=1';
   
3.   TCustomADODataSet(TfrxDBDataSet(MasterData1.DataSet).DataSet).Filtered := True;
   
4. end.

复制代码

回写打印时间示例

1. var
   
2. slist:string;                                    
   
3. 
   
4. procedure Page1OnBeforePrint(Sender: TfrxComponent);
   
5. var
   
6.   qry:TCustomADODataSet;              
   
7. begin
   
8.   qry := TCustomADODataSet(TfrxDBDataSet(Report.getDataSet('查询结果1')).DataSet);
   
9.   qry.Filter :='bSelected=1';
   
10.   qry.Filtered := True;
    
11.   slist := '';                           
    
12.   qry.First;
    
13.   while not qry.Eof do
    
14.   begin
    
15.     qry.Next;                                 
    
16.     slist := slist + ','''+qry.FieldByName('uGUID').AsString+'''';                                                                                                                             
    
17.   end;            
    
18.   if slist <> '' then
    
19.     delete(slist,1,1);
    
20. end;  
    
21. 
    
22. 
    
23. procedure rptMainOnReportPrint(Sender: TfrxComponent);
    
24. var   
    
25.   up:TfrxADOQuery;
    
26. begin
    
27. if slist <> '' then
    
28. begin
    
29.   up := TfrxAdoQuery.Create(nil);
    
30.   try        
    
31.     up.SQL.Text :='update mmhwInDtl set tInprintTime=getdate() where uguid in ('+slist+')';
    
32.     up.execsql;
    
33.   finally               
    
34.     up.Free;
    
35.   end;         
    
36. end;         
    
37. 
    
38. end;
    
39. 
    
40. begin
    
41. 
    
42. end.

复制代码