Только до редактирования же НЕ ДОХОДИТ !!! Я колёсиком вверх-вниз и алиас уже слетает !!! Т.е. стоя на 5-7 записях в справочнике уже видно что база отвалилась !!!
Andrey пишет:
цитата: Сделал новый тест в функции MyFieldEdit() до начала редактирования при слёте базы:
Т.е. колёсиком подергал вверх-вниз на 5 записях, функция MyChangeBrowse(cAlias) показывает 0/0 начинаю редактировать: 1. MsgDebug показывает 5, "", "STREET" 2. MsgDebug показывает "RLock()=" .T.
Т.е. АЛИАС по всей задачи ALIAS() = "" - убит !!! Кем ? На экране таблица есть (в объекте) а все связи разорваны !
А вот еще облом, если записей много колёсиком-мышки нужно подергать вверх-вниз (просто на экране, не на всю длину) и то же вылетает .... 0/0 записей....
Возвращаюсь опять к предыдущей теме. Теперь прога стала "сваливаться" на редактирование базы, то нормально редактирует, то нет. Закономерностей нет. После некоторого анализа, дошло до меня.... После запуска программы, на главной форме я повесил таймер для перечитывания(открытие/закрытие) базы-журнала работающих в программе... Может дело в этом ?
Отправлено: 28.03.15 11:21. Заголовок: Haz пишет: не убит,..
Haz пишет:
цитата:
не убит, где-то сработал Select(0) вот и стал текущим пустой алиас. На 99% уверен что если твой RecLock() вызывать из алиасного выражения STREET->(RecLock()) то ошибка уйдет. Но это костыль, а не исправление ошибки. По уму надо найти "виновника"
Виновник найден ! Совсем мало прошло, чуть больше месяца....
Простая конструкция TsBrowse не включает корректировку (удаление работает) :
@ 10,10 TBROWSE oBrw5 ALIAS "Test" OF Form_1 ; WIDTH 350 HEIGHT 380 CELLED; HEADERS "Code","First","Last","Birth","Bio" ; WIDTHS 50,150,150,100,200 ; FIELDS Test->Code,Test->First,Test->Last,Test->Birth,Test->Bio ; VALUE 1 ; BACKCOLOR YELLOW ; FONTCOLOR BLUE ; LOCK ; DELETE ; EDITABLE
добавление доп. манипуляции исправляет ситуацию корректировки: k := len(oBrw5:aColumns) FOR i := 1 TO k oBrw5:aColumns[ i ]:lEdit := ( i < k ) NEXT но это лишние телодвижения ... Отключение корректировки - результат не передачи в методе Default() параметра ::lEditable h_tsbrowse.prg (line 1779) ::AddColumn( TSColumn():New( ::aHeaders[ nI ], bBlock, ::aFormatPic[nI], { ::nClrText, ::nClrPane, ; ::nClrHeadFore, ::nClrHeadBack, ::nClrFocuFore, ::nClrFocuBack }, ; {aJustify[ nI ], 1}, ::aColSizes[ nI ],::lEditable, ; // здесь не задан параметр ValType( Eval( ::bLine )[ nI ] ) == "B",,,,,,, ; 5,, {.F., .T.},, Self, cBlock ) )
Продолжаю мучить простой вариант TsBrowse, добавил
@ 10,10 TBROWSE oBrw5 ALIAS "Test" OF Form_1 ; WIDTH 350 HEIGHT 380 CELLED; HEADERS "Code","First","Last","Birth","Bio" ; WIDTHS 50,150,150,100,200 ; FIELDS Test->Code,Test->First,Test->Last,Test->Birth,Test->Bio ; VALUE 1 ; BACKCOLOR YELLOW ; FONTCOLOR BLUE ; READONLY {.T.,.T.,.T.,.T.,.F.} ; LOCK ; DELETE ; EDITABLE
и ... упс ... READONLY подвешен в воздухе, упоминается в Function _DefineTBrowse (...) как HB_SYMBOL_UNUSED( readonly ) и все, т.е. вынесено из define ... "как трудно жить" (c), перевести простой browse, на простой TBrowse
Function _DefineTBrowse ( ... ) ... LOCAL i, j, k, n // BK 18.05.2015 ... if ValType(aColSel) != 'U' .and. ValType(aColSel) =='A' IF ValType(aColSel[1]) =='A' aColSel := aColSel[1] endif endif
IF valtype(uWhen) == 'B' // BK 18.05.2015 IF valtype(readonly) != 'A' // readonly := eval(uWhen) // ENDIF // uWhen := Nil // иначе снятие ENDIF // IF valtype(valid) == 'B' // valid := eval(valid) // ENDIF // BK
Все даты в формате GMT
3 час. Хитов сегодня: 17
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
- участник сейчас на форуме
- участник вне форума