powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Head Grid
22 сообщений из 22, страница 1 из 1
Head Grid
    #38386929
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите кто чем может, в Grid Themes .F. сам Grid в Data Environment состоит из 3х табл.
spisok.prof = kprof.kprof
spisok.cex = spodr.spodrk

делаю упорядочивание по колонкам по нажатию Head в Grid в Click Header пишу
1
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
ThisForm.grid1.column1.Header1.BackColor= RGB(253,254,218)

ThisForm.grid1.column2.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column3.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column4.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column5.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column6.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column7.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column8.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column9.Header1.BackColor= RGB(240,240,240)

SELECT spisok 
INDEX ON tn TO tn.idx 
SET INDEX TO tn.idx

ThisForm.grid1.Refresh
 



2
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
ThisForm.grid1.column2.Header1.BackColor= RGB(253,254,218)

ThisForm.grid1.column1.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column3.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column4.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column5.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column6.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column7.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column8.Header1.BackColor= RGB(240,240,240)
ThisForm.grid1.column9.Header1.BackColor= RGB(240,240,240)

SELECT spisok 
INDEX ON fio TO fio.idx 
SET INDEX TO fio.idx 

ThisForm.grid1.Refresh

и т.д.

проблема с 2мя колонками которые по свзи в них пишу
Код: sql
1.
2.
3.
SELECT spodr 
INDEX ON npodr TO npodr.idx 
SET INDEX TO npodr.idx 

и по нажатию колонка становится пустой и еще возможно сделать упорядочивание по 2му нажатию в обратном направлении.
...
Рейтинг: 0 / 0
Head Grid
    #38386943
зайчик12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
дать ссылку на готовый пример?
...
Рейтинг: 0 / 0
Head Grid
    #38387181
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pipos522

Уберите INDEX ON из процедур нажатия заголовка грида в LOAD формы

непользуйтесь связями в гриде - используйте выборку, или SEEK() в столбце
...
Рейтинг: 0 / 0
Head Grid
    #38387199
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В Load формы (или раньше):
INDEX ON aaa TAG aaa

В Header Grid'а:
oldrecno=RECNO()
SET ORDER TO aaa
THISFORM.REFRESH
GOTO oldrecno

И все путем. У меня Grid'ы такими штуками напичканы. Сложнее, когда курсоры для Grid'ов приходится формировать 'на лету', но и эта проблема решаема.
...
Рейтинг: 0 / 0
Head Grid
    #38387405
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pulsar_p, у меня 9 полей как мне их все проиндексировать
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
SELECT spisok 
INDEX ON tn TO tn.idx
SET INDEX TO tn.idx

INDEX ON prof TO prof.idx
SET INDEX TO prof.idx 

INDEX ON cex TO cex.idx
SET INDEX TO cex.idx 

INDEX ON lkarta TO lkarta.idx
SET INDEX TO lkarta.idx 

INDEX ON priznak TO priznak.idx
SET INDEX TO priznak.idx 

INDEX ON datap TO datap.idx
SET INDEX TO datap.idx 

INDEX ON dubolp TO dubolp.idx
SET INDEX TO dubolp.idx 

INDEX ON rukov TO rukov.idx 
SET INDEX TO rukov.idx 

INDEX ON fio TO fio.idx
SET INDEX TO fio.idx
...
Рейтинг: 0 / 0
Head Grid
    #38387407
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pipos522, поспешил TAG не заметил
...
Рейтинг: 0 / 0
Head Grid
    #38387428
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как-то вот так:

*В Load формы (или раньше):
SELECT spisok
INDEX ON tn TAG tn
INDEX ON prof TAG prof
INDEX ON cex TAG cex
INDEX ON lkarta TAG lkarta
INDEX ON priznak TAG priznak
INDEX ON datap TAG datap
INDEX ON dubolp TAG dubolp
INDEX ON rukov TAG rukov
INDEX ON fio TAG fio
SET ORDER TO fio
************************

*Header Grid'а: tn
oldrecno=RECNO()
SET ORDER TO tn
THISFORM.REFRESH
GOTO oldrecno

*Header Grid'а: prof
oldrecno=RECNO()
SET ORDER TO prof
THISFORM.REFRESH
GOTO oldrecno

*Header Grid'а: cex
oldrecno=RECNO()
SET ORDER TO cex
THISFORM.REFRESH
GOTO oldrecno

И т.д.
...
Рейтинг: 0 / 0
Head Grid
    #38387473
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
зайчик12345дать ссылку на готовый пример? Был бы очень благодарен.
...
Рейтинг: 0 / 0
Head Grid
    #38387480
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pulsar_p,
SELECT spisok
--> INDEX ON tn TAG tn
File must be opened exclusively
...
Рейтинг: 0 / 0
Head Grid
    #38387507
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
даю наводку:pipos522File must be opened exclusive ly
...
Рейтинг: 0 / 0
Head Grid
    #38387520
123456 зайчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
pipos522зайчик12345дать ссылку на готовый пример? Был бы очень благодарен.

уточню, -
пример на тему "как сделать кучу классов и не писать вечно кучу кода".

Ваша задача на один раз, Вы студент?
или разработка на фокспро это осмысленный шаг и Вы желаете развиваться?
Видели разработки аля "парус" и как к ним относитесь?
...
Рейтинг: 0 / 0
Head Grid
    #38387552
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
123456 зайчикpipos522пропущено...
Был бы очень благодарен.

уточню, -
пример на тему "как сделать кучу классов и не писать вечно кучу кода".

1) Ваша задача на один раз, Вы студент?
2) или разработка на фокспро это осмысленный шаг и Вы желаете развиваться?
3) Видели разработки аля "парус" и как к ним относитесь?

1 нет
2 осмысленный)
2 нет

прога старая на досе еще вот взялся переделать на визуал
...
Рейтинг: 0 / 0
Head Grid
    #38387560
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
tanglirдаю наводку:pipos522File must be opened exclusive ly

SET EXCLUSIVE OFF не помогает
...
Рейтинг: 0 / 0
Head Grid
    #38387569
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pipos522, совершенно верно. А наоборот не пробовали?
...
Рейтинг: 0 / 0
Head Grid
    #38387573
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pipos522,
В качестве источника данных для Grid'а используете курсор или таблицу?
...
Рейтинг: 0 / 0
Head Grid
    #38387639
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Судя по сообщению об ошибке - таблицу.
В качестве источника данных для Grid'а я использую курсоры. У меня таких проблем нет
Если вы используете таблицу, да еще формируете индексы 'на лету', тогда так:

*В Load формы(или раньше):
SELECT spisok
INDEX ON tn TO tn.idx
INDEX ON prof TO prof.idx
INDEX ON cex TO cex.idx
INDEX ON lkarta TO lkarta.idx
INDEX ON priznak TO priznak.idx
INDEX ON datap TO datap.idx
INDEX ON dubolp TO dubolp.idx
INDEX ON rukov TO rukov.idx
INDEX ON fio TO fio.idx


*Header Grid'а: tn
oldrecno=RECNO()
SET INDEX TO tn
THISFORM.REFRESH
GOTO oldrecno

*Header Grid'а: prof
oldrecno=RECNO()
SET INDEX TO prof
THISFORM.REFRESH
GOTO oldrecno

*Header Grid'а: cex
oldrecno=RECNO()
SET INDEX TO cex
THISFORM.REFRESH
GOTO oldrecno

ИМХО: Используйте в качестве источника данных для Grid'а курсоры.
...
Рейтинг: 0 / 0
Head Grid
    #38387795
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pulsar_p,
через курсор не умею еще( я как делал (создал грид через Builder накидал 9 колонок две из которых в ControlSourse изменил на другие таблы выдавало ошибку тогда в Data Environment добавил эти 3 табл и указал связь между ними всё заработало)
сделал как вы сказали Alias 'CEX' is not found
...
Рейтинг: 0 / 0
Head Grid
    #38387985
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pipos522
В Grid.RecordSource что стоит?
Давайте форму с таблицами.
Да, кстати, какая версия FOX'а?
...
Рейтинг: 0 / 0
Head Grid
    #38388018
12345зайчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
pipos522123456 зайчикпропущено...


уточню, -
пример на тему "как сделать кучу классов и не писать вечно кучу кода".

1) Ваша задача на один раз, Вы студент?
2) или разработка на фокспро это осмысленный шаг и Вы желаете развиваться?
3) Видели разработки аля "парус" и как к ним относитесь?

1 нет
2 осмысленный)
2 нет

прога старая на досе еще вот взялся переделать на визуал

там пример как не писать так, как писали на досе
http://www.sql.ru/forum/618865-1/klassy?hl=???

покликайте по заголовкам - будет работать сортировка, - значки и принцип аля "парус".
иконки даже из исходников паруса дернуты.
...
Рейтинг: 0 / 0
Head Grid
    #38388071
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pulsar_ppipos522
В Grid.RecordSource что стоит?
Давайте форму с таблицами.
Да, кстати, какая версия FOX'а?

spisok.prof = kprof.kprof
spisok.cex = spodr.spodrk
spisok.tn = specod.tn

Microsoft Visual FoxPro 9.0

Grid.RecordSource 1- alias
...
Рейтинг: 0 / 0
Head Grid
    #38388080
Фотография pipos522
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pipos522,

spisok.cex = spodr.skpodr

ошибочка там
...
Рейтинг: 0 / 0
Head Grid
    #38388101
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pipos522Pulsar_ppipos522
В Grid.RecordSource что стоит?
Давайте форму с таблицами.
Да, кстати, какая версия FOX'а?

spisok.prof = kprof.kprof
spisok.cex = spodr.spod r k
spisok.tn = specod.tn

Microsoft Visual FoxPro 9.0

Grid.RecordSource 1- alias

pipos522pipos522,

spisok.cex = spodr.skpodr

ошибочка там
...
Рейтинг: 0 / 0
22 сообщений из 22, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Head Grid
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]