ITabRange.DependenceCells

Синтаксис Fore

DependenceCells([DirectOnly: Boolean = True]): Array;

Синтаксис Fore.NET

DependenceCells(DirectOnly: Boolean): System.Array;

Параметры

DirectOnly. Параметр, определяющий режим поиска зависимых ячеек.

Если в качестве значения параметра передается True, то будет произведен поиск ячеек, от которых непосредственно зависит заданная ячейка (В формуле заданной ячейки имеется прямая ссылка на ячейку).

Если в качестве значения параметра передается False, то будет произведен поиск всех ячеек, от которых непосредственно или косвенно зависит заданная ячейка.

Описание

Метод DependenceCells производит поиск ячеек, от которых зависит данная ячейка.

Примечание. Составной диапазон строится из ячеек одной таблицы. Количество элементов массива соответствует количеству таблиц, на которых есть ячейки, влияющие на вычисление текущей.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента UiReport с наименованием «UiReport1» и компонента ReportBox, отображающего данные регламентного отчета, подключенного к «UiReport1».

Добавьте ссылки на системные сборки Drawing, Report, Tab, Metabase.

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Sheet: IPrxTable;
        Cell, DepRange, DepCell: ITabRange;
        Style: ITabCellStyle;
        Arr: Array Of Variant;
        i, j: Integer;
    Begin
        Sheet := (UiReport1.Instance As IPrxReport).ActiveSheet As IPrxTable;
        Cell := Sheet.TabSheet.View.Selection.Range;
        If Cell.Count = 1 Then
            Arr := Cell.DependenceCells(False);
            If Not IsNull(Arr) And (Arr.Length > 0) Then
                For i := 0 To Arr.Length - 1 Do
                    DepRange := Arr[i] As ITabRange;
                    For j := 0 To DepRange.PartCount - 1 Do
                        DepCell := DepRange.Part(j);
                        Style := DepCell.Style;
                        Style.BorderColor(TabBorder.Outline) := GxColor.FromName("Red");
                        Style.BorderStyle(TabBorder.Outline) := TabBorderStyle.Continuous;
                    End For;
                End For;
            Else
                Debug.WriteLine("Зависимые ячейки не обнаружены.");
            End If;
        Else
            Debug.WriteLine("Должна быть выделена только одна ячейка.");
        End If;
    End Sub Button1OnClick;

При нажатии на кнопку будет осуществлен поиск всех ячеек, от которых зависит данная ячейка, выделенная в текущий момент. Границы найденных ячеек будут выделены красной линией.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента UiReportNet с наименованием «UiReportNet1» и компонента ReportBoxNet, отображающего данные регламентного отчета, подключенного к «UiReportNet1».

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
        Sheet: IPrxTable;
        Cell, DepRange, DepCell: ITabRange;
        Style: ITabCellStyle;
        Arr: Array;
        i, j: Integer;
        GxColorCls: GxColorClassClass = New GxColorClassClass();
    Begin
        Sheet := (UiReportNet1.ReportUi.Instance As IPrxReport).ActiveSheet As IPrxTable;
        Cell := Sheet.TabSheet.View.Selection.Range;
        If Cell.Count = 1 Then
            Arr := Cell.DependenceCells(False);
            If Not (Arr = Null) And (Arr.Length > 0) Then
                For i := 0 To Arr.Length - 1 Do
                    DepRange := Arr[i] As ITabRange;
                    For j := 0 To DepRange.PartCount - 1 Do
                        DepCell := DepRange.Part[j];
                        Style := DepCell.Style;
                        Style.BorderColor[TabBorder.tbOutline] := GxColorCls.FromName("Red");
                        Style.BorderStyle[TabBorder.tbOutline] := TabBorderStyle.tbsContinuous;
                    End For;
                End For;
            Else
                System.Diagnostics.Debug.WriteLine("Зависимые ячейки не обнаружены.",
            End If;
        Else
            System.Diagnostics.Debug.WriteLine("Должна быть выделена только одна ячейка.",
        End If;
    End Sub;

См. также:

ITabRange