Форум » GUI » TsBrowse в Минигуи (продолжение) » Ответить
TsBrowse в Минигуи (продолжение)
Vlad04: TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений К примеру [quote] DEFINE TBROWSE oBrw2 ; AT 60,450 ; ALIAS cAlias ; OF Form1 ; WIDTH 330 ; HEIGHT 340 ; FONT "Verdana" ; SIZE 9 ; ON DBLCLICK CopyRec(); ON GOTFOCUS fModelo_Hab(2) ; AUTOFILTER ; CELLED EDIT; VALUE nRec; GRID [/quote] Здесь я собрал параметры из разных tBrows Можно или нет и какие парметры заменить выражением ( и каким) ? oBrw2:.... oBrw2:....
Haz: Andrey пишет: Т.е. использую просто SET DELETED ON База одна открыта ? SET DELETED ON - команда которая включает игнорирование удаленных правда INDEX и REINDEX всегда игнорируют установку SET DELETED но это не тот случай.
Andrey: Если делаю SET DELETED OFF, то будет так: Черным цветом, я удалённые записи раскрашиваю. Haz пишет: База одна открыта ? Нет, несколько - 5 штук. Одна основная и 4 для set relation.
Haz: Haz пишет: если написать так DATA {|| Select() } что покажет ?
Haz: Andrey пишет: DATA {|| (Alias())->(OrdKeyNo()) } - такая же фигня. извини , но написанную фигню, фигню и показывает DATA {|| (oBrw:cAlias)->(OrdKeyNo())
Haz: Сделай так , уверен все увидишь DATA {|| Select() }
Dima: Андрей пишет: DATA {|| (Alias())->(OrdKeyNo()) } - такая же фигня. Ну ясный пень. Я бы указал реальный алиас по которому ходишь , а так выходит что если ты где то сменил рабочую область то фигню и получишь.
Andrey: Вот переделанный пример Tsb_config версии 1.2 - https://cloud.mail.ru/public/2CHr/h9u2vn7JR Там просто ставлю: ADD COLUMN TO oBrw ; HEADER "№№" ; DATA {||OrdKeyNo()} ; Но там используется фильтр. А у меня без фильтра.
Haz: Haz пишет: Haz пишет: цитата: если написать так DATA {|| Select() } что покажет ? а потом будем теоретизировать про фильтры
Andrey: Haz пишет: если написать так DATA {|| Select() } Вот что показывает: Haz пишет: извини , но написанную фигню, фигню и показывает DATA {|| (oBrw:cAlias)->(OrdKeyNo()) Написал как советовал. Всё равно нумерация сбивается.
Haz: Andrey пишет: Вот что показывает: а ниже курсором проехать ...
Andrey: Ничего не происходит. Показывает всегда 1, т.е. select() !
Haz: вот так проехать ! Andrey пишет: сдвинуть ниже последней записи
Haz: Andrey пишет: Написал как советовал. Всё равно нумерация сбивается. Как именно , код покажи
Haz: Почему в картинках ниже 3 записи строки другого цвета ? какое условие их красит по разному ?
Andrey: Haz пишет: Как именно , код покажи ADD COLUMN TO oBrwS HEADER "№№" ; DATA {|| (oBrwS:cAlias)->(OrdKeyNo()) } ; Haz пишет: Почему в картинках ниже 3 записи строки другого цвета ? какое условие их красит по разному ? ; //* -------- Цвет условий в TBrowse ---------------------- Цвет_условия_1 = { { || Master->KDoljn == 0 .OR. Master->KMaster == 0 }, "12/4" } Цвет_условия_2 = { { || LEN( ALLTRIM(Master->Master) ) == 0 } , {128, 255} } Цвет_условия_3 = { { || Master->KDel == 0 }, "4/2" } Цвет_условия_4 = { { || Master->KDel == 2 }, "8/2" } Цвет_условия_5 = { { || Master->KSITE == 1 }, "0/2" } Цвет_условия_6 = { { || Master->KSITE == 9 }, "4/2" } Цвет_условия_7 = { { || Master->KDel == 1 }, "14/2" } Цвет_условия_8 = { { || Master->KDel == 3 }, "15/2" } Цвет_условия_9 = { { || 1 == 1 }, { MyRGB(COLOR_LGREEN()), MyRGB({0,0,0}) } } Цвета вытащены в ини-файл, функция покраски как в SAMPLES\Advanced\Tsb_config
Andrey: Как уходишь за границу записей, так нумерация сбивается у функции (oBrwS:cAlias)->(OrdKeyNo()) и oBrwS:nAt : DEFINE TBROWSE oBrwS ; ON CHANGE { || ChangeTable() } ; ON GOTFOCUS ChangeTable() ; //////////////////////////////////////////////////////////// STATIC FUNCTION ChangeTable() LOCAL cVal, nLen, cLen, cText LOCAL cForm := oBrwS:cParentWnd LOCAL lMark, lPrint, lMail, lSave LOCAL cCaption1, cCaption2 cVal := HB_NToS( (oBrwS:cAlias)->(OrdKeyNo()) ) nLen := (oBrwS:cAlias)->(OrdKeyCount()) cLen := HB_NToS( nLen ) cCaption1 := "Текущая запись базы: " + HB_NtoS((oBrwS:cAlias)->(RecNo())) cCaption2 := "Номер записи таблицы: " + HB_NtoS(oBrwS:nAt) MenuCaptionSet( "MYTABLETEXT " , cForm , cCaption1 ) MenuCaptionSet( "MYTABLERECNO" , cForm , cCaption2 ) oBrwS:aColumns[3]:cFooting := { || " Запись: " + cVal + "/" + cLen + " " } oBrwS:DrawFooters() // выполнить прорисовку подвала TblFocus() RETURN Nil
Haz: Andrey пишет: Как уходишь за границу записей, так нумерация сбивается у функции (oBrwS:cAlias)->(OrdKeyNo()) и oBrwS:nAt nAt там вообще вне всякой логики , не годится как нумератор
Haz: По коду, визуально все ок какой управляющий индекс задан ? вот это TblFocus() что ?
Haz: Скорее всего это SET DELETED ON - команда которая включает игнорирование удаленных правда INDEX и REINDEX всегда игнорируют установку SET DELETED но это не тот случай. то есть OrdKeyNo() всегда учитывает удаленные записи, как ни ставь SET DELETED Если это не условный индекс !Deleted() , такой индекс пропустит удаленные. Вопрос почему идет смена нумерации остается открытым , мне все же кажется что где-то меняется рабочая область или управляющий индекс. выведи в поле не просто номер OrdKeyNo() , а Alias() + "/" + oBrwS:cAlias + "/" + NTOC((oBrwS:cAlias)->(OrdKeyNo())) + "/" + (oBrwS:cAlias)->(OrdKeyFocus()) иначе не понять
Andrey: А как тогда первую колонку сделать ? ADD COLUMN TO oBrwS HEADER "№№" ; DATA {|| (oBrwS:cAlias)->(OrdKeyNo()) } ;
полная версия страницы