LoadFromXml(Xml: String);
LoadFromXml(Xml: string);
Xml. Строка в формате XML, содержащая описание стилей таблицы.
Метод LoadFromXml загружает стили таблицы из строки в формате XML.
Для сохранения стилей таблицы в строку формата XML используйте метод ITabTableStyles.SaveToXml.
Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором «REG_REPORT_TAB», содержащего стили таблицы. В файловой системе должен быть файл «C:\TableStyles.xml», содержащий стили таблицы в формате XML.
Добавьте ссылки на системные сборки: Metabase, Report, Tab, Xml.
Sub UserProc;
Var
mb: IMetabase;
Report: IPrxReport;
Tab: ITabSheet;
Style: ITabTableStyles;
StyleXml: String;
XML: FreeThreadedDOMDocument60;
Begin
mb := MetabaseClass.Active;
// Получаем стили таблицы из файла формата XML
XML := New FreeThreadedDOMDocument60.Create;
XML.load("C:\TableStyles.xml");
StyleXml := XML.xml;
// Получаем регламентный отчет
Report := mb.ItemById("REG_REPORT_TAB").Edit As IPrxReport;
// Получаем стили таблицы
Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
Style := Tab.TableStyles;
// Загружаем полученные стили
Style.LoadFromXml(StyleXml);
// Сохраняем изменения
(Report As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера стили таблицы для активного листа отчета будут загружены из файла «C:\TableStyles.xml».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.MsXml2;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
Report: IPrxReport;
Tab: ITabSheet;
Style: ITabTableStyles;
StyleXml: String;
XML: FreeThreadedDOMDocument60;
Begin
mb := Params.Metabase;
// Получаем стили таблицы из файла формата XML
XML := New FreeThreadedDOMDocument60.Create();
XML.load("C:\TableStyles.xml");
StyleXml := XML.xml;
// Получаем регламентный отчет
Report := mb.ItemById["REG_REPORT_TAB"].Edit() As IPrxReport;
// Получаем стили таблицы
Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
Style := Tab.TableStyles;
// Загружаем полученные стили
Style.LoadFromXml(StyleXml);
// Сохраняем изменения
(Report As IMetabaseObject).Save();
End Sub;
См. также: