1.в Embed при открытии окна, открываем 2 таб
Код: Выделить всё
SELECT(?Sheet1,2)
Модератор: Дед Пахом
1.в Embed при открытии окна, открываем 2 таб
Код: Выделить всё
SELECT(?Sheet1,2)
У вас два Sheet-a или один Sheet с двумя табами? А еще проще выложите код window
сейчас угадывать будем как sheet обозван
Код: Выделить всё
self.FirstField = ?Tab2
Код: Выделить всё
...
CASE FIELD()
OF ?Browse:1
! [Priority 5000]
OF ?CurrentTab
! [Priority 5000]
! End of "Control Event Handling"
! Start of "Legacy: Control Event Handling, after generated code"
! [Priority 4000]
!обновление заголовка окна при смене ТАБ
...
NumTab# = ?CurrentTab{PROP:ChoiceFeq} - 10 !считаем со смещением относительно порядковых номеров первых полей на экране
CASE NumTab#
OF 0
loc:text1 =
OF 1
loc:text1 =
ELSE !что-то пошло не так?
loc:text1 =
END
QuickWindow{prop:text} = CLIP(loc:text1)
POST(EVENT:ScrollTop,?Browse:1) !на 1-ю запись
...
! End of "Legacy: Control Event Handling, after generated code"
...
Код: Выделить всё
...
OF EVENT:OpenWindow
! [Priority 5000]
...
BRW1::SortHeader.SetSortFromString('+LDR:NAME')
...
Аналогичный случай у меня был не так давно, один товарищ спрашивал, как для его задачи libcurl использовать. Товарищ вроде опытный, в ньюсгруппах лет сто уже отирается. Ну я объясняю, говорю "вот пример sendmail.clw прямо для тебя, бери и пользуйся". Не, говорит, не работает твой пример, куча ошибок компиляции. Выяснилось, что он взял этот sendmail.clw и целиком вставил в embed под кнопкой, его не смутило слово PROGRAM и всё такое.
Соглашусь с ДП, что порой бывает неожиданно. Это не может не работать!!! Если результат был бы не известен, я бы написал, например, "Попробуйте так". Но у меня железное утверждение! По делу. Куда Вы вставили этот текст?
Надо сделать:
Код: Выделить всё
post(EVENT:ScrollTop, ?List)