ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / CheckBox в гриде пропадает
11 сообщений из 11, страница 1 из 1
CheckBox в гриде пропадает
    #35414258
tem@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tem@
Участник
Использую чекбокс в гриде, когда сортирую данные (по коду и фио) чекбокс пропадает, и появляются надписи соответствующие значению чекбокса (T или F),
в чем причина исчезновения чекбокса?
Заранее спасибо!
...
Рейтинг: 0 / 0
07.07.2008, 10:30
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35414303
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Поставь
Код: plaintext
column.sparse = .F.
...
Рейтинг: 0 / 0
07.07.2008, 10:45
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35414430
tem@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tem@
Участник
sparse итак равен .F.

код сортировки по коду:
column1 - столбец с чекбоксом

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
	SELECT * FROM SYS( 5 )+SYS( 2003 )+'\DBF\polic';
	  ORDER BY Kkod INTO TABLE otbor_Vibor

	 WITH Thisform.grid1 
               .RecordSourceType =  1   	     
	    .RecordSource = "otbor_Vibor"
	    .column1.width =  44 
	    .column2.width =  53 
	    .column3.width =  82 
	    .column1.backcolor = RGB( 254 , 248 , 224 )
	    .column2.backcolor = RGB( 254 , 248 , 224 )
	    .column3.backcolor = RGB( 254 , 248 , 224 )
	    .Column1.ControlSource = "otbor_Vibor.Nodel_tf"   
	    .Column2.ControlSource = "otbor_Vibor.Ser"  
	    .Column3.ControlSource = "otbor_Vibor.Kkod" 
	    .Column1.Header1.Caption = 'Метка'
	    .Column2.Header1.Caption = 'Серия'    
	    .Column3.Header1.Caption = 'Код' 
               .sparse = .f.
	    .Refresh
	 ENDWITH
...
Рейтинг: 0 / 0
07.07.2008, 11:25
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35414519
tem@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tem@
Участник
просто с грида пропадает чекбокс, если дальше обращаться к данному чекбоксу
то возникнет ошибка "неизвестный элемент Check1", почему он у меня слетает с грида?
...
Рейтинг: 0 / 0
07.07.2008, 12:02
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35414620
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
tem@просто с грида пропадает чекбокс, если дальше обращаться к данному чекбоксу
то возникнет ошибка "неизвестный элемент Check1", почему он у меня слетает с грида?
После SELECT ... в вышеприведенном коде грид очищается, ты его программно восстанавливаешь, но чекбокса там уже нет.
Не уверен что поможет, но попробуй:
Код: plaintext
1.
2.
Thisform.grid1.RecordSource = ""
select ....
Thisform.grid1.RecordSource = "otbor_Vibor"

То что ты делаешь по другому надо. Один раз выбрал в курсор или временную таблицу в DE.BeforeOpenTables(), а потом:
Код: plaintext
1.
2.
sele otbor_Vibor
index on Kkod tag kkod
set order to Kkod

Или в гриде исходную таблицу показывать. Тогда индексы заранее надо создать, а при работе использовать только
set order to ...
...
Рейтинг: 0 / 0
07.07.2008, 12:29
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35414892
CTAC-KO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CTAC-KO
Участник
а каким образом без ошибки отрабатывает строка:
Код: plaintext
.sparse = .f.
если у грида такого свойства вообще нет? Такое св-во есть только у колонок грида. По-идее должно бы быть
Код: plaintext
.Column1.sparse = .f.
а весь код дожен был бы быть таким
Код: plaintext
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.
28.
29.
30.
31.
32.
	 WITH Thisform.grid1 

	    .RecordSource = ""
	    .Column1.ControlSource = ""   
	    .Column2.ControlSource = ""  
	    .Column3.ControlSource = "" 

SELECT * FROM SYS( 5 )+SYS( 2003 )+'\DBF\polic';
	  ORDER BY Kkod INTO TABLE otbor_Vibor

	    *.column1.width =  44 
	    *.column2.width =  53 
	    *.column3.width =  82 

	    *.column1.backcolor = RGB( 254 , 248 , 224 )
	    *.column2.backcolor = RGB( 254 , 248 , 224 )
	    *.column3.backcolor = RGB( 254 , 248 , 224 )

	    *.сolumn1.sparse = .f.

	    *.RecordSourceType =  1   	     
	    .RecordSource = "otbor_Vibor"

	    .Column1.ControlSource = "otbor_Vibor.Nodel_tf"   
	    .Column2.ControlSource = "otbor_Vibor.Ser"  
	    .Column3.ControlSource = "otbor_Vibor.Kkod" 

	    *.Column1.Header1.Caption = 'Метка'
	    *.Column2.Header1.Caption = 'Серия'    
	    *.Column3.Header1.Caption = 'Код' 

	    .Refresh
	 ENDWITH
если Вы не "убиваете" грид, т.к. это в принципе бессмыссленно, не "убиваете" колонки в гриде посредством .ColumnCount=-1,то закоментаренное абсолютно не нужно, так же как и .сolumn1.sparse = .f., которое должно быть определено 1 раз и навсегда (разве что реально необходимо восстанавливать такие параметры, но для сортировки этого точно не нужно), так же как и ширины столбцов и Header1.Caption-ы.
...
Рейтинг: 0 / 0
07.07.2008, 13:52
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35415172
tem@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tem@
Участник
если делать по вышеуказанному примеру то на первом же Column1
выдается ошибка - "неизвестный элемент Column1"

если же задать кол-во столбцов то грид станет пустым
...
Рейтинг: 0 / 0
07.07.2008, 15:02
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35416165
1010100021
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1010100021
Гость
Вот что у меня получается

Вот обычный список.
...
Рейтинг: 0 / 0
07.07.2008, 19:55
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35416166
1010100021
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1010100021
Гость
Далее нажимаю на кнопку в которой такой код:
Код: plaintext
1.
2.
3.
4.
5.
SELECT gurnal
SELECT * FROM gurnal WHERE Reg =  20  INTO TABLE xxx

Thisform.grid1.RecordSource='xxx'
Thisform.grid1.Refresh()

Получается это:
...
Рейтинг: 0 / 0
07.07.2008, 19:55
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35416168
1010100021
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1010100021
Гость
Это нужно было?
...
Рейтинг: 0 / 0
07.07.2008, 19:57
| Ответить | Цитировать | Написать  
CheckBox в гриде пропадает
    #35416436
CTAC-KO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CTAC-KO
Участник
tem@если делать по вышеуказанному примеру то на первом же Column1
выдается ошибка - "неизвестный элемент Column1"

если же задать кол-во столбцов то грид станет пустым
CTAC-KOесли Вы не "убиваете" грид, т.к. это в принципе бессмыссленно, не "убиваете" колонки в гриде посредством .ColumnCount=-1,то закоментаренное абсолютно не нужно
соотв. снимите * и еще добавьте строку с кол-вом колонок сразу после SELECT * FROM ... :
Код: plaintext
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.
28.
29.
30.
31.
32.
33.
34.
35.
	 WITH Thisform.grid1 

	    .RecordSource = ""

SELECT * FROM SYS( 5 )+SYS( 2003 )+'\DBF\polic';
	  ORDER BY Kkod INTO TABLE otbor_Vibor

	    .ColumnCount =  3 

	    * из-за уничтожения колонок, с ними уничтожился и чекбокс!
	    * и теперь его надо снова добавлять!!!
	    .сolumn1.AddObject('Check1','CheckBox')
	    .сolumn1.CurrentControl  = 'Check1'
	    .сolumn1.sparse = .f.

	    .column1.width =  44 
	    .column2.width =  53 
	    .column3.width =  82 

	    .column1.backcolor = RGB( 254 , 248 , 224 )
	    .column2.backcolor = RGB( 254 , 248 , 224 )
	    .column3.backcolor = RGB( 254 , 248 , 224 )

	    .RecordSourceType =  1   	     
	    .RecordSource = "otbor_Vibor"

	    .Column1.ControlSource = "otbor_Vibor.Nodel_tf"   
	    .Column2.ControlSource = "otbor_Vibor.Ser"  
	    .Column3.ControlSource = "otbor_Vibor.Kkod" 

	    .Column1.Header1.Caption = 'Метка'
	    .Column2.Header1.Caption = 'Серия'    
	    .Column3.Header1.Caption = 'Код' 

	    .Refresh
	 ENDWITH
Только лучше не прибегать к "убийству" грида/колонок посредством .ColumnCount=-1, тогда код уменьшается и чекбокс не пропадет:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
	 WITH Thisform.grid1 

	    .RecordSource = ""
	    .Column1.ControlSource = ""   
	    .Column2.ControlSource = ""  
	    .Column3.ControlSource = "" 

SELECT * FROM SYS( 5 )+SYS( 2003 )+'\DBF\polic';
	  ORDER BY Kkod INTO TABLE otbor_Vibor

	    .RecordSource = "otbor_Vibor"

	    .Column1.ControlSource = "otbor_Vibor.Nodel_tf"   
	    .Column2.ControlSource = "otbor_Vibor.Ser"  
	    .Column3.ControlSource = "otbor_Vibor.Kkod" 


	    .Refresh
	 ENDWITH
...
Рейтинг: 0 / 0
08.07.2008, 02:55
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / CheckBox в гриде пропадает
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35414258&tid=1587572]:
 0ms
get settings:
 12ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 63ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 243ms
total:  426ms
созд. / загр.: 426ms
x
x
Закрыть


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