![]() |
|
#3
|
|||
|
|||
![]() Все разобрался. Нужно было программно обновить компонент доступа к данным в Rave. Делается это так:
Код:
procedure TMainForm.BitBtn3Click(Sender: TObject); var DataView: TRaveBaseDataView; // Unit - RvData begin RvProject1.Open; LIForm.ZInstalls.SQL.Text:='SELECT * FROM installs'; LIForm.ZInstalls.active:=true; With RvProject1.ProjMan do begin Dataview := FindRaveComponent('DvInstalls',nil) as TRaveBaseDataView; CreateFields(DataView, nil, nil, true); // refresh the dataview end; Report.Execute; end; |