Автор | Сообщение |
Vlad04
|
| постоянный участник
|
Пост N: 420
Зарегистрирован: 13.10.05
|
|
Отправлено: 19.12.13 18:16. Заголовок: TsBrowse в Минигуи (продолжение)
TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений К примеру цитата: | 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 |
| Здесь я собрал параметры из разных tBrows Можно или нет и какие парметры заменить выражением ( и каким) ? oBrw2:.... oBrw2:....
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Haz
|
| |
Пост N: 937
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:26. Заголовок: Andrey пишет: Т.е. ..
Andrey пишет: цитата: | Т.е. использую просто SET DELETED ON |
| База одна открыта ? SET DELETED ON - команда которая включает игнорирование удаленных правда INDEX и REINDEX всегда игнорируют установку SET DELETED но это не тот случай.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4903
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 15:31. Заголовок: Если делаю SET DELET..
Если делаю SET DELETED OFF, то будет так: Черным цветом, я удалённые записи раскрашиваю. Haz пишет: Нет, несколько - 5 штук. Одна основная и 4 для set relation.
|
|
|
Haz
|
| |
Пост N: 938
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:33. Заголовок: Haz пишет: если на..
Haz пишет: цитата: | если написать так DATA {|| Select() } |
| что покажет ?
|
|
|
Haz
|
| |
Пост N: 939
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:35. Заголовок: Andrey пишет: DATA..
Andrey пишет: цитата: | DATA {|| (Alias())->(OrdKeyNo()) } - такая же фигня. |
| извини , но написанную фигню, фигню и показывает DATA {|| ( oBrw:cAlias)->(OrdKeyNo())
|
|
|
Haz
|
| |
Пост N: 940
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:37. Заголовок: Сделай так , уверен ..
Сделай так , уверен все увидишь
|
|
|
Dima
|
| |
Пост N: 5648
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.05.16 15:39. Заголовок: Андрей пишет: DATA ..
Андрей пишет: цитата: | DATA {|| (Alias())->(OrdKeyNo()) } - такая же фигня. |
| Ну ясный пень. Я бы указал реальный алиас по которому ходишь , а так выходит что если ты где то сменил рабочую область то фигню и получишь.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4904
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 15:41. Заголовок: Вот переделанный при..
Вот переделанный пример Tsb_config версии 1.2 - https://cloud.mail.ru/public/2CHr/h9u2vn7JR Там просто ставлю: ADD COLUMN TO oBrw ; HEADER "№№" ; DATA {||OrdKeyNo()} ; Но там используется фильтр. А у меня без фильтра.
|
|
|
Haz
|
| |
Пост N: 941
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:42. Заголовок: Haz пишет: Haz пише..
Haz пишет: цитата: | Haz пишет: цитата: если написать так DATA {|| Select() } что покажет ? |
| а потом будем теоретизировать про фильтры
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4905
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 15:46. Заголовок: Haz пишет: если нап..
Haz пишет: цитата: | если написать так DATA {|| Select() } |
| Вот что показывает: Haz пишет: цитата: | извини , но написанную фигню, фигню и показывает DATA {|| (oBrw:cAlias)->(OrdKeyNo()) |
| Написал как советовал. Всё равно нумерация сбивается.
|
|
|
Haz
|
| |
Пост N: 942
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:47. Заголовок: Andrey пишет: Вот ч..
Andrey пишет: а ниже курсором проехать ...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4906
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 15:50. Заголовок: Ничего не происходит..
Ничего не происходит. Показывает всегда 1, т.е. select() !
|
|
|
|
Haz
|
| |
Пост N: 943
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:50. Заголовок: вот так проехать ! A..
вот так проехать ! Andrey пишет: цитата: | сдвинуть ниже последней записи |
|
|
|
|
Haz
|
| |
Пост N: 944
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:53. Заголовок: Andrey пишет: Напис..
Andrey пишет: цитата: | Написал как советовал. Всё равно нумерация сбивается. |
| Как именно , код покажи
|
|
|
Haz
|
| |
Пост N: 945
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 15:55. Заголовок: Почему в картинках н..
Почему в картинках ниже 3 записи строки другого цвета ? какое условие их красит по разному ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4907
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 16:03. Заголовок: Haz пишет: Как имен..
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
|
| постоянный участник
|
Пост N: 4908
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 16:17. Заголовок: Как уходишь за грани..
Как уходишь за границу записей, так нумерация сбивается у функции (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
|
| |
Пост N: 946
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 16:24. Заголовок: Andrey пишет: Как у..
Andrey пишет: цитата: | Как уходишь за границу записей, так нумерация сбивается у функции (oBrwS:cAlias)->(OrdKeyNo()) и oBrwS:nAt |
| nAt там вообще вне всякой логики , не годится как нумератор
|
|
|
Haz
|
| |
Пост N: 947
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 16:27. Заголовок: По коду, визуально в..
По коду, визуально все ок какой управляющий индекс задан ? вот это TblFocus() что ?
|
|
|
Haz
|
| |
Пост N: 948
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 16:41. Заголовок: Скорее всего это SE..
Скорее всего это цитата: | SET DELETED ON - команда которая включает игнорирование удаленных правда INDEX и REINDEX всегда игнорируют установку SET DELETED но это не тот случай. |
| то есть OrdKeyNo() всегда учитывает удаленные записи, как ни ставь SET DELETED Если это не условный индекс !Deleted() , такой индекс пропустит удаленные. Вопрос почему идет смена нумерации остается открытым , мне все же кажется что где-то меняется рабочая область или управляющий индекс. выведи в поле не просто номер OrdKeyNo() , а Alias() + "/" + oBrwS:cAlias + "/" + NTOC((oBrwS:cAlias)->(OrdKeyNo())) + "/" + (oBrwS:cAlias)->(OrdKeyFocus()) иначе не понять
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4909
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 16:44. Заголовок: А как тогда первую к..
А как тогда первую колонку сделать ? ADD COLUMN TO oBrwS HEADER "№№" ; DATA {|| (oBrwS:cAlias)->(OrdKeyNo()) } ;
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|