Сортировка поля по header

@Xo6ut · Регистрация: 04.11.2011

Студворк — интернет-сервис помощи студентам

Как сделать сортировку поля путем клика по header'y?

Добавлено через 2 часа 28 минут
В таблице proj есть поле codprog, мне нужно сделать чтобы оно сортировало его при клике по хидеру, в ините формы пишу

Code
1
2
3
4
5
6
7
8
9
SELECT proj3.*  FROM proj3 INTO cursor stat1 READWRITE
SELECT stat1  
  INDEX ON codprog TAG codprog ASCENDING  
  INDEX ON codprog TAG codprog1 DESCENDING  
 
 
SET ORDER TO codprog IN stat1 ASCENDING 
 
GO TOP IN stat1

После пишу на клике хидера

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
SELECT stat1
IF VAL(SYS(21))<>1  && current index number
 
  SET ORDER TO codprog IN stat1
ELSE
  IF DESCENDING(1,"stat1")
     SET ORDER TO codprog IN stat1 ASCENDING
 
  ELSE
     SET ORDER TO codprog IN stat1 DESCENDING
 
  ENDIF
ENDIF
 
THIS.PARENT.PARENT.SETALL("picture","","HEADER")
THIS.PICTURE=IIF(DESCENDING(1,"stat1"), THISFORM.picdesc, THISFORM.picace) && the sorting icon
 
GO TOP IN stat1
THIS.PARENT.PARENT.REFRESH
THIS.PARENT.SETFOCUS

после клика на хидер он мне выдает table has no inder order set на строку
SET ORDER TO codprog IN stat1

@Xo6ut · 22.09.2016, 21:18 **[ТС]**

Это я сделал, подскажите как сделать кнопку удаления записи из грида(удалять нужно ту запись, на которой стоит курсор)+ должно выскакивать сообщение (типо "точно удалять?")

@Doctor_y · 24.09.2016, 07:52

Code
1
2
3
4
5
SET DELETED ON
IF MESSAGEBOX("Удалить текущую запись?", 4)=6
DELETE
THISFORM.Grid1.Refresh
ENDIF

Но запись пометится на удаление только в курсоре.
В таблицах из которой этот курсор был создан ничего не произойдет.

@Xo6ut · 24.09.2016, 11:05 **[ТС]**

Т.е чтобы удалить запись нужно использовать источник для грида не курсор, а таблицу?

@Doctor_y · 24.09.2016, 14:38

Сообщение от Xo6ut

Т.е чтобы удалить запись нужно использовать источник для грида не курсор, а таблицу?

Совершенно верно.
А смысл создавать курсор из одной таблицы?
Это влечет за собой дополнительные действия:
Пройтись по всем записям курсора определяя не помечена ли запись для удаления (DELETED()). Если помечена, то найти данную запись в таблице, пометить на удаление (DELETE). Потом перед закрытием таблицы - удалить физически (PACK), если нужно и если таблица открыта эксклюзивно.
Проще таблицу отобразить в гриде и сразу производить действия в ней.

@Xo6ut · 24.09.2016, 16:06 **[ТС]**

А как быть с кнопкой редактирования записи? Т.е я нажимаю на кнопку, у меня открывается другая форма с текстбоксами, которые должны быть хаполнены данные полей записи, на которой стоит курсор

Добавлено через 12 минут
Это сделал

@Doctor_y · 24.09.2016, 16:41

Здесь много вариантов. Самый простой - отредактировать запись в гриде. Иерархия объектов ячейки грида по дефолту заканчивается textbox со всеми присущими свойствами и методами.
Если хочется другую форму, то в свойстве текстбокса ControlSourse = таблица. поле
После закрытия формы редактирования изменится и Grid в вызывающей форме.
Ну и так далее.

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	22.09.2016, 21:18 [ТС]
	Это я сделал, подскажите как сделать кнопку удаления записи из грида(удалять нужно ту запись, на которой стоит курсор)+ должно выскакивать сообщение (типо "точно удалять?") 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	24.09.2016, 11:05 [ТС]
	Т.е чтобы удалить запись нужно использовать источник для грида не курсор, а таблицу? 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	24.09.2016, 16:06 [ТС]
	А как быть с кнопкой редактирования записи? Т.е я нажимаю на кнопку, у меня открывается другая форма с текстбоксами, которые должны быть хаполнены данные полей записи, на которой стоит курсор Добавлено через 12 минут Это сделал 0

@Doctor_y 32 / 31 / 12 Регистрация: 11.06.2016 Сообщений: 240 Записей в блоге: 11
	24.09.2016, 16:41
	Здесь много вариантов. Самый простой - отредактировать запись в гриде. Иерархия объектов ячейки грида по дефолту заканчивается textbox со всеми присущими свойствами и методами. Если хочется другую форму, то в свойстве текстбокса ControlSourse = таблица. поле После закрытия формы редактирования изменится и Grid в вызывающей форме. Ну и так далее. 0