CaseSensitive: Boolean;
CaseSensitive: Boolean;
Свойство CaseSensitive определяет, будет ли учитываться регистр символов при сортировке.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «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. Вместо компонентов 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;
См. также: