ITabCustomSort.CaseSensitive

Синтаксис Fore

CaseSensitive: Boolean;

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

CaseSensitive: Boolean;

Описание

Свойство CaseSensitive определяет, будет ли учитываться регистр символов при сортировке.

Пример Fore

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

Необходимо подключить системные сборки: Report, Tab.

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Tab: ITabSheet;
        Report: IPrxReport;
        Sheet: IPrxSheet;
        CustomSort: ITabCustomSort;
        SortItem: ITabCustomSortItem;
    Begin
        // Получим экземпляр таблицы
        Report := UiReport1.Report;
        Sheet := Report.ActiveSheet;
        Tab := (Sheet As IPrxTable).TabSheet;
        // Зададим настройки сортировки таблицы
        CustomSort := Tab.CustomSort;
        CustomSort.Clear;
        CustomSort.Range := Tab.Table;
        CustomSort.Add(Tab.ColumnIndex("A"));
        CustomSort.CaseSensitive := True;
        SortItem := CustomSort.Item(0);
        SortItem.Direction := TabCustomSortDirection.Ascending;
        SortItem.Type := TabCustomSortType.Text;
        // Применим сортировку
        CustomSort.Sort;
        // Определим была ли использована сортировка по столбцам
        debug.Write(CustomSort.IsColumnSort.ToString);
    End Sub Button1OnClick;

При нажатии кнопки будет настроена сортировка по возрастанию в столбце «A». При этом будет учитываться регистр символов.

Сортировка без учета регистра:

Сортировка с учетом регистра:

Пример Fore.NET

Требования и результат выполнения примера аналогичны примеру на Fore. Вместо компонентов TabSheetBox и UiReport используйте их Fore.Net аналоги.

Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Report;

    Private Sub button1_Click( sender : System.Object; e : System.EventArgs );
    Var
        Tab: ITabSheet;
        Report: IPrxReport;
        Sheet: IPrxSheet;
        CustomSort: ITabCustomSort;
        SortItem: ITabCustomSortItem;
    Begin
        // Получим экземпляр таблицы
        Report := UiReportNet1.ReportUi.Report;
        Sheet := Report.ActiveSheet;
        Tab := (Sheet As IPrxTable).TabSheet;
        // Зададим настройки сортировки таблицы
        CustomSort := Tab.CustomSort;
        CustomSort.Clear();
        CustomSort.Range := Tab.Table;
        CustomSort.Add(Tab.ColumnIndex["A"]);
        CustomSort.CaseSensitive := True;
        SortItem := CustomSort.Item[0];
        SortItem.Direction := TabCustomSortDirection.tcsdAscending;
        SortItem.Type := TabCustomSortType.tcsText;
        // Применим сортировку
        CustomSort.Sort();
        // Определим была ли использована сортировка по столбцам
        System.Diagnostics.Debug.WriteLine(CustomSort.IsColumnSort.ToString());
    End Sub;

См. также:

ITabCustomSort