请给代码

解决方案 »

  1.   

    第一种方法是使用 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;