Автор | Сообщение |
|
| |
Пост N: 102
Зарегистрирован: 06.05.14
|
|
Отправлено: 29.01.17 06:11. Заголовок: Ошибка Rlock()/SKIP
Пожалуйста, попробуйте следующую программу: REQUEST LETO PROC Main LOCAL TB, Ch LOCAL cPath cPath := "//192.168.99.10:2807/xApp" Leto_Connect (cPath) RddSetDefault ("LETO") USE (cPath + "/Artikli") SHARED NEW CLS TB := TBrowseDB (0,0,24,79) TB:addColumn (TBColumnNew ("CODE", {|| a_sif })) WHILE .T. TB:ForceStable() Ch := Inkey(0) IF Ch == 27 EXIT ELSEIF Ch == 13 IF RLock() Artikli->a_sif := "003" SKIP // <---- ERROR! SKIP -1 DBUnlock() TB:refreshAll() END IF END IF END DO CLOSE ALL RETURN Если нажать Enter в *два раза*, получим: Error LETO/1020 Data type error Called from DBSKIP(0) Called from MAIN(29) При использовании драйвера DBF, все работает без ошибок. Я не знаю, какова роль TBrowse, но без него все работает. Ненад
|
|
|
Новых ответов нет
|
|