Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Head Grid / 22 сообщений из 22, страница 1 из 1
04.09.2013, 16:28
    #38386929
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
Помогите кто чем может, в 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
| Ответить | Цитировать | Написать  
04.09.2013, 16:34
    #38386943
зайчик12345
зайчик12345
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
дать ссылку на готовый пример?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2013, 19:44
    #38387181
alextashk
alextashk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522

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

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

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

И все путем. У меня Grid'ы такими штуками напичканы. Сложнее, когда курсоры для Grid'ов приходится формировать 'на лету', но и эта проблема решаема.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 08:57
    #38387405
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
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
| Ответить | Цитировать | Написать  
05.09.2013, 08:58
    #38387407
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522, поспешил TAG не заметил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 09:24
    #38387428
Pulsar_p
Pulsar_p
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
Как-то вот так:

*В 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
| Ответить | Цитировать | Написать  
05.09.2013, 10:06
    #38387473
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
зайчик12345дать ссылку на готовый пример? Был бы очень благодарен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 10:10
    #38387480
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
Pulsar_p,
SELECT spisok
--> INDEX ON tn TAG tn
File must be opened exclusively
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 10:27
    #38387507
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
даю наводку:pipos522File must be opened exclusive ly
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 10:38
    #38387520
123456 зайчик
123456 зайчик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522зайчик12345дать ссылку на готовый пример? Был бы очень благодарен.

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

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

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

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

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

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

SET EXCLUSIVE OFF не помогает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 11:08
    #38387569
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522, совершенно верно. А наоборот не пробовали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 11:12
    #38387573
Pulsar_p
Pulsar_p
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522,
В качестве источника данных для Grid'а используете курсор или таблицу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 11:55
    #38387639
Pulsar_p
Pulsar_p
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
Судя по сообщению об ошибке - таблицу.
В качестве источника данных для 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
| Ответить | Цитировать | Написать  
05.09.2013, 13:02
    #38387795
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
Pulsar_p,
через курсор не умею еще( я как делал (создал грид через Builder накидал 9 колонок две из которых в ControlSourse изменил на другие таблы выдавало ошибку тогда в Data Environment добавил эти 3 табл и указал связь между ними всё заработало)
сделал как вы сказали Alias 'CEX' is not found
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 14:47
    #38387985
Pulsar_p
Pulsar_p
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522
В Grid.RecordSource что стоит?
Давайте форму с таблицами.
Да, кстати, какая версия FOX'а?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 14:59
    #38388018
12345зайчик
12345зайчик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522123456 зайчикпропущено...


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

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

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

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

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

покликайте по заголовкам - будет работать сортировка, - значки и принцип аля "парус".
иконки даже из исходников паруса дернуты.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 15:27
    #38388071
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
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
| Ответить | Цитировать | Написать  
05.09.2013, 15:34
    #38388080
pipos522
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
pipos522,

spisok.cex = spodr.skpodr

ошибочка там
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2013, 15:54
    #38388101
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Head Grid
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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Head Grid / 22 сообщений из 22, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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