其他都正常,为什么合计数出不来?
procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
...
begin
...... i:=20;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select name,fields from items where tables=''pay'' and total=1');
ADOQuery2.Open;
while not ADOQuery2.Eof do
begin
Memo:= TfrxMemoView.Create(ColumnFooter1);
//Memo.CreateUniqueName;
//Memo.DataSet :=ADOQuery1;
Memo.Text :='[SUM(<ADOQuery1."'+Trim(ADOQuery2.FieldByName('fields').AsString)+'">,MasterData1)]';
//ShowMessage(Memo.Text); //显示正常
Memo.Height :=20;
Memo.SetBounds(i,0,100,20);
ADOQuery2.Next;
i:=i+80;
end;
end;
procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
...
begin
...... i:=20;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select name,fields from items where tables=''pay'' and total=1');
ADOQuery2.Open;
while not ADOQuery2.Eof do
begin
Memo:= TfrxMemoView.Create(ColumnFooter1);
//Memo.CreateUniqueName;
//Memo.DataSet :=ADOQuery1;
Memo.Text :='[SUM(<ADOQuery1."'+Trim(ADOQuery2.FieldByName('fields').AsString)+'">,MasterData1)]';
//ShowMessage(Memo.Text); //显示正常
Memo.Height :=20;
Memo.SetBounds(i,0,100,20);
ADOQuery2.Next;
i:=i+80;
end;
end;
x: TfrxMemoView;
Begin
x:=frxReport1.FindObject('Memo1') as TfrxMemoView;//报表名称frxReport1
x.Memo.Text:=:='[SUM( <ADOQuery1."'+Trim(ADOQuery2.FieldByName('fields').AsString)+'"> ,MasterData1)]';//X即为memo1
End;
那要怎么样用?TO: WANGXUELLD
x:=frxReport1.FindObject('Memo1') as TfrxMemoView;//都是动态创建的,Memo1那里来的还请高手帮帮忙
--
sum? 我不知道你那个是否可不可以用,
2:
Memo1//是fastreport里面的,显示你的数据之和的,,
TfrxMemoView(fr.FindObject('MemoDx' + IntToStr(n))).Text := c;
这种方式都没问题呀。