Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
на кнопке выхода из формы так if MessageBox("Хотите сохранить изменения?",3 + 32,"Подтверждение")=6 TableUpdate(.T.) else TableRevert(.T.) endif ThisForm.Release это сообщение выдается в любом случае - а надо - только когда записи были изменены Заранее спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 10:07 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
Если я правильно понял, то следует сделать так: if Updated() if MessageBox(... ................ endif endif или что-то в этом роде. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 10:20 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
Ну, так сначала проверьте были-ли изменения. Для табличной буферизации IF GetNextModified(0,"MyTable")<>0 * Была модификация ENDIF Для строковой буферизации или если нельзя перемещать указатель записи LOCAL lcModify lcModify = GetFldState(-1,"MyTable") IF LEN(ChrTran(m.lcModify),"1","")>0 * Быда модификация ENDIF Правда, использование GetFldState() не всегда надежно, поскольку статус модификации конкретного поля может быть изменен явно, используя функцию SetFldState(). Если нужна однозначность, то придется в цикле пробежаться по всем полям (FCOUNT(), FIELD()) и сравнить OldVal() с текущим значением ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 10:22 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
Спасибо. ВладимирМ, трудно мне дается справочник и ComboBox. Не можешь посмотреть где у меня ошибка, если есть время конечно. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 11:35 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
А в чем проблема-то? Что-то я в твоем примере никакого ComboBox не нашел. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 11:49 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
пока Combo даже не рискую использовать, а здесь для таблицы shz все нормально, а для otd то два поля отображаются в Grid то одно - последнее ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 11:57 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
Для Grid - не надо указывать RecordSourceType = 0 - Table. Это приведет к массе "глюков". Оставь значение по умолчанию RecordSourceType = 1 - Alias Макроподстановка, конечно, сильная штука, но если все то же самое можно задать явно, то и следует использовать явное указание. У Grid есть такая коллекция Columns, т.е. все присвоения для столбцов можно делать так: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 12:11 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
Еще раз спасибо, ВладимирМ! Все стало отлично:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.06.2004, 12:46 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
ВладимирМ, со столбцами все нормально, с кнопкой добавить - проблема, не определяет первичный ключ cprKey="" nKeyVal=EVAL(m.cprKey) дает ошибку "Missing Expression" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2004, 07:18 |
|
||
|
не получается "Сохранение"
|
|||
|---|---|---|---|
|
#18+
Не понял, а что ты ожидала получить в результате макроподстановки от пустой строки? Evaluate() - это вариант макроподстановки. Вообще, идеология формирования нового значения ключевого поля через ПОИСК в существующей таблицы в корне неверна. Пока с твоей программой работает один пользователь - это еще сойдет. Но вот при многопользовательской работе ты очень быстро получишь ситуацию, когда 2 пользователя попытаются присвоить одно и то же значение. Самое разумное, это использовать служебную таблицу, для хранения последнего использованного (или первого НЕ использованного) значений ключевых полей ВСЕХ таблиц базы данных. Поищи по этой конференции по ключевому слову "NewID" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2004, 09:54 |
|
||
|
|

start [/forum/topic.php?fid=41&msg=32548378&tid=1596430]: |
0ms |
get settings: |
7ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
34ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 252ms |
| total: | 374ms |

| 0 / 0 |
