Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание нового компонента в Grid`е. Должно работать, а не работает. / 6 сообщений из 6, страница 1 из 1
23.01.2007, 18:52
    #34276479
splayn
splayn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание нового компонента в Grid`е. Должно работать, а не работает.
Почему не работает?...

Создаю форму, на ней грид, в гриде две колонки. В первую 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, 19:05
    #34276528
Ffffffffffff
Ffffffffffff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание нового компонента в Grid`е. Должно работать, а не работает.
А зачем ты в колонку с цифрами вставляешь checkbox ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2007, 19:11
    #34276541
splayn
splayn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание нового компонента в Grid`е. Должно работать, а не работает.
Без разницы...
и так не работает:
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:17
    #34276552
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание нового компонента в Grid`е. Должно работать, а не работает.
Любой динамически добавленнный объект по умолчанию имеет значение свойства 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:23
    #34276568
splayn
splayn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание нового компонента в Grid`е. Должно работать, а не работает.
Ура.... работает.. ВСЕМ спасибо...

А на счет ControlSource там просто опечатка так должно быть:
.columns(.columncount).Currentcontrol='CheckBox'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2007, 09:28
    #34277249
alex11100
alex11100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание нового компонента в Grid`е. Должно работать, а не работает.
дорогой 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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание нового компонента в Grid`е. Должно работать, а не работает. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 389ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1590001]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 249ms
total:  389ms
x
x
Закрыть


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