ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание нового компонента в Grid`е. Должно работать, а не работает.
6 сообщений из 6, страница 1 из 1
Создание нового компонента в Grid`е. Должно работать, а не работает.
    #34276479
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
splayn
Гость
Почему не работает?...

Создаю форму, на ней грид, в гриде две колонки. В первую CheckBox, а родной TextBox удаляю, соответственно меняю Sparce=.f. (так что-бы видеть CheckBox). Вторую - оставляю без изменений. Ставлю гриду свойства:
.RecordSourceType=1-Alias
.RecordSource=(None).

Все... больше никакие свойства не меняю...

В Activate формы пишу:

WITH this.grid1

.recordsource=''

CREATE CURSOR _ppp (a1 i, a2 i, a3 i)
APPEND BLANK
replace _ppp.a1 WITH 1
replace _ppp.a2 WITH 0
replace _ppp.a3 WITH 1

.columncount=3
.columns(.columncount).RemoveObject('Text1')
.columns(.columncount).AddObject('CheckBox','CheckBox')
.columns(.columncount).Sparse=.f.
.columns(.columncount).ControlSource='CheckBox'
.recordsource='_ppp'
.Refresh()
ENDWITH

После запуска могу изменить через грид только значения полей _ppp.a1.!!!!!!!! Почему только _ppp.a1 надо еще и _ppp.a3/
...
Рейтинг: 0 / 0
23.01.2007, 18:52
| Ответить | Цитировать | Написать  
Создание нового компонента в Grid`е. Должно работать, а не работает.
    #34276528
Ffffffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ffffffffffff
Гость
А зачем ты в колонку с цифрами вставляешь checkbox ?
...
Рейтинг: 0 / 0
23.01.2007, 19:05
| Ответить | Цитировать | Написать  
Создание нового компонента в Grid`е. Должно работать, а не работает.
    #34276541
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
splayn
Гость
Без разницы...
и так не работает:
CREATE CURSOR _ppp (a1 l, a2 l, a3 l)
APPEND BLANK
replace _ppp.a1 WITH .t.
replace _ppp.a2 WITH .f.
replace _ppp.a3 WITH .t.
...
Рейтинг: 0 / 0
23.01.2007, 19:11
| Ответить | Цитировать | Написать  
Создание нового компонента в Grid`е. Должно работать, а не работает.
    #34276552
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Любой динамически добавленнный объект по умолчанию имеет значение свойства Visible = .F. Естесственно, такой объект нельзя редактировать.

Либо добавляйте CheckBox на этапе проектирования дизайна формы, либо после AddObject() дайте команду

.columns(.columncount).CheckBox.Visible = .T.

Кроме того, необходимо явно прописать источники данных для каждого столбца, после указания источника данных для всего Grid

* Сначла ОБЯЗАТЕЛЬНО сбросить источник данных для Grid
* иначе возможно разрушение структуры Grid
.recordsource=''

* потом настривается источник для Grid
.recordsource='_ppp'
.columns(.columncount).ControlSource = '_ppp.a1'

Источником данных для столбца является ПОЛЕ таблицы, но никак не объект. Т.е. CheckBox не может быть источником данных столбца. Последствия такого присвоения - непредсказуемые.
...
Рейтинг: 0 / 0
23.01.2007, 19:17
| Ответить | Цитировать | Написать  
Создание нового компонента в Grid`е. Должно работать, а не работает.
    #34276568
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
splayn
Гость
Ура.... работает.. ВСЕМ спасибо...

А на счет ControlSource там просто опечатка так должно быть:
.columns(.columncount).Currentcontrol='CheckBox'
...
Рейтинг: 0 / 0
23.01.2007, 19:23
| Ответить | Цитировать | Написать  
Создание нового компонента в Grid`е. Должно работать, а не работает.
    #34277249
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
дорогой splayn, уважай фокспро.

в лисе пишут так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
.recordsource='_ppp'
local loColumn, lnColumnNumber
lnColumnNumber =  3 
loColumn = .columns(lnColumnNumber)
with loColumn
   .RemoveObject('Text1')
   .AddObject('CheckBox','CheckBox')
   ...
endwith

если будешь всю коллекцию перебирать, то делают так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
with grid
  ...
  local loColumn
  for each loColumn in .Columns
     with loColumn
           ...
     endwith
  endfor
endwith
...
Рейтинг: 0 / 0
24.01.2007, 09:28
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание нового компонента в Grid`е. Должно работать, а не работает.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=216&tid=1590001]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 32ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 217ms
total:  327ms
созд. / загр.: 327ms
x
x
Закрыть


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