Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Оптимизация кода  [new]
andrepont
Member

Откуда:
Сообщений: 42
здравствуйте.
Можно лли данное выражение уместить в одну строку? Т.е. перечислить колонки грида одной строкой
thisform.grid1.column1.Visible = .F.
thisform.grid1.column2.Visible = .F.
thisform.grid1.column4.Visible = .F.
thisform.grid1.column7.Visible = .F.
thisform.grid1.column9.Visible = .F.
thisform.grid1.column22.Visible = .F.
Зараннее спасибо.
10 июл 18, 17:03    [21560030]     Ответить | Цитировать Сообщить модератору
 Re: Оптимизация кода  [new]
Dima T
Member

Откуда:
Сообщений: 15279
Перечислить нельзя, но можно назначить всем
thisform.grid1.SetAll('Visible', .F., 'Column')


Можешь свою функцию написать
proc HideColumn
lpara tcColList && список колонок через запятую
for each laCol in thisform.grid1.Columns
     if laCol.Name + ',' $ tcColList
         laCol.Visible = .F.
     endif
endfor
10 июл 18, 17:13    [21560058]     Ответить | Цитировать Сообщить модератору
 Re: Оптимизация кода  [new]
Sergey Sizov
Member

Откуда:
Сообщений: 1547
Dima T
Можешь свою функцию написать
proc HideColumn
lpara tcColList && список колонок через запятую
for each laCol in thisform.grid1.Columns
     if laCol.Name + ',' $ tcColList
         laCol.Visible = .F.
     endif
endfor
Ужас...

А еще есть store.
10 июл 18, 17:42    [21560150]     Ответить | Цитировать Сообщить модератору
 Re: Оптимизация кода  [new]
asdor
Member

Откуда: Москва
Сообщений: 506
andrepont,
как указал Sergey Sizov
with thisform.grid1
store .f. to .column1.Visible,.column2.Visible,... etc 
endwith 
10 июл 18, 19:30    [21560361]     Ответить | Цитировать Сообщить модератору
 Re: Оптимизация кода  [new]
andrepont
Member

Откуда:
Сообщений: 42
Спасибо всем за помощь. Разобрался все работает.
10 июл 18, 20:04    [21560386]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить