在delphi7中,用rave做报表我怎样通过程序给报表中的text组件赋值

解决方案 »

  1.   

    先在程序中找到text 组件,然后在程序中设置其text属性
      

  2.   

    用参数阿,在rave中放置datatext,datafiled为Param.Param1
    程序中写入
        RvProject1.SetParam('Param1','这里是你要写入的参数');
      

  3.   

    to:公路上的programmer:
    按你说的做还是没能成功,能说的详细点吗,谢谢
      

  4.   

    不好意思,一直出差你在rave设计器中,将datatext放到page中,设置属性datafiled为Param.Param1程序中写入
        RvProject1.SetParam('Param1','这里是你要写入的参数');
       
    就可以阿,你可以把具体的要求发邮件给我,我写个小程序给你,你看路就知道了
    邮件地址已经给你 留言了
    请注明 : rave问题?
      

  5.   

    借人气问一个问题
          MyDataView := FindRaveComponent('DataView1',nil) as TRaveDataView;  //²éÕÒmydataview
          MyField := TRaveStringField.Create(MyDataView);
          MyField.Parent := MyDataView;
          MyField.Name := 'DataView1Opt_Time';
          MyField.FieldName := ADOQuery1.Fields[0].FieldName;
          MyField.FullName := 'Loss';
          MyField.Size := 2;
          AddComponent(MyField);      MyDataBand := FindRaveComponent('DataBand',MyRegion) as TRaveDataBand;
          MyDatatext := TRavedataText.Create(MyDataBand);
          MyDataText.Parent := MyDataBand;
          MyDataText.Name := 'datatext1';
          MyDataText.Top := 0;
          MyDataText.Left := 0.4;
          MyDataText.Width := 1;
          MyDataText.Height:=200;
          MyDataText.DataView := MyDataView;
          MyDataText.DataField := MyField.FieldName;
          MyDataText.Font.Size := 10;
          MyDataText.Font.Color := Clblack;
          MyDataText.Font.Name := 'Arial';
          AddComponent(MyDataText);我想用上面的程序给报表中动态增加一列,程序运行没有错误,但是报表预览的时候,没有出现应有的数据