Afalina Soft XL Report 4 - "Ошибка сервера"

← →
ruslan_as (2005-08-26 11:36) [0]

Перестала работать моя программа - ругается на строке xlReport1.Report. Во избежании лишнего запустил пустой проэкт на машине, где только компонент XL Report и файл Excel. Все равно выдает ошибку Visual Basik "Это действие приведет к перезапуску проекта". Офис 2003.
Раз проблемы с офисом (тем более, что в документации к Afaline я не нашел упоминания о 2003) я установил Office 97. Запускаю тот же проэкт - пишет "ошибка сервера". Проблема не была бы серьезной, но этот проэкт не работает и некоторых других машинах. Пробовал изменять свойство DataExportMode - изменений нет.

← →
KorD (2005-08-26 16:39) [1]

Попробуй создавать компонент виртуально
у меня тоже както начались похожиеглюки, так помогло

var
xlRepVedPP: TxlReport;
Dsr: TxlDataSource;

begin
xlRepVedPP := TxlReport.Create(Self);

xlRepVedPP.Params.Clear;
xlRepVedPP.Params.Add.Name:="Test";
xlRepVedPP.ParamByName["Test"].Value := "123";

Dsr := xlRepVedPP.DataSources.Add;
Dsr.DataSet := adoqVedPP_List;
Dsr.Range := "";
Dsr.Alias := "adoqVedPP_List";
//Dsr.Options := Dsr.Options-[xrgoPreserveRowHeight];

Dsr := xlRepVedPP.DataSources.Add;
Dsr.DataSet := adoqVedPP_Data;
Dsr.Range := "VedPPData";
Dsr.Alias := "adoqVedPP_Data";
//Dsr.Options := Dsr.Options-[xrgoPreserveRowHeight];

xlRepVedPP.Report;
xlRepVedPP.Free;

end;

Afalina Soft XL Report 4 - "Ошибка сервера" Найти похожие ветки