??????

解决方案 »

  1.   

    你在frReport的onGetValue完成呀,在内部定义变量var1,将外部的变量在下面事件中实现。
    example:
    if AnsiCompareText(ParName, 'var1') = 0 then
        ParValue := now();
      

  2.   

    http://expert.csdn.net/Expert/topic/1418/1418508.xml?temp=.8233911
      

  3.   

    何必罗嗦,这里看看,有没有你所需要的:
    http://www.csdn.net/Subject/137/
      

  4.   

    procedure TFormLBReport.frReport1UserFunction(const Name: String; p1, p2,p3: Variant; var Val: Variant);
    var
      ss:string;
    begin
      if AnsiCompareText('GETVALUES', Name) = 0 then
      begin
        //根据p1读取不同的数据,可以写个函数在这里
        ss:=uppercase(p1);
        if ss='ADDRSS' then val:='重庆市';
      end;
    end;在memo中这样使用[GETVALUES(Address)]  //表示取公司地址
      

  5.   

    这样也行--才看到的
    uses fr_Class;
    frVariables['Value1'] := '引用的数值';在memo中这样使用[value1]