第一种方法是使用全局对象frVariables (在 FR_Class 单元中被定义): rVariables['My variable'] := 10; 这段代码创建了一个名称为“My variable”,值为 10 的变量。这是传输固定数据到报表的最好方法。
第二种方法是使用 TfrReport.OnGetValue 事件. 这可以使用这个方法来传送动态数据、记录等。 procedure TForm1.frReport1GetValue(ParName: String; var ParValue: Variant); begin if ParName = 'MyField' then ParValue := Table1MyField.Value; end;
最后, 第三种方法是通过编程在数据词典中定义变量(可以参考以前的问题): with frReport1.Dictionary do begin Variables['MyVariable'] := 'CustomerData.Customers."CustNo"'; Variables['Another Variable'] := '10'; end;