** Критичные для появления или подавления ошибки участки кода
 ** выделены логическими блоками if ... endif.
 ** Блок if .t. нужен для появления ошибки. Если его условие 
 ** поменять на .f. - ошибка исчезнет.
 ** Блок if .f. способен подавить ошибку. Если его условие 
 ** поменять на .t. - ошибка исчезнет.
 set echo off
 set enginebehavior 70
 
 clear all
 close all
 ** Форма нам нужна, т.к. без формы (в этой же или 
 ** в отдельной процедуре) те же самые команды, что 
 ** и в форме, работают без ошибок.
 _myForm=NewObject("myForm")
 define class myform as form       
        
        proc Init()
             set safe off
             create table table1 (string1 c(5))
             insert into  table1 (string1) values  ('1')
             if .t.
                ** Если не переоткрыть таблицу в расшаренном
                ** режиме, то ошибка исчезнет. Видимо, в 
                ** монопольном режиме движок работы с данными
                ** работает несколько иначе. Возможно, что
                ** именно расшаренный режим создает "левый" 
                ** дополнительный буфер, который не всегда
                ** обновляется и из которого потом читает
                ** данные SQL-выборка.
                use in table1
                if .t.
                   use table1 share 
                else
                   use table1 excl
                endif
             endif
             if .t.
                ** Этот хотя бы скрытый объект на форме нужен.
                ** Без него ошибки не будет.
                This.NewObject('string1','textbox')
                with This.string1
                     .Enabled=.f.
                     .Visible=.f.
                     if .t.
                        ** У этого скрытого объекта должна быть
                        ** связь с таблицей, иначе ошибки не будет.
                        .ControlSource = "table1.string1"
                     endif
                     if .t.
                        ** Вот для чего нужен скрытый объект на форме!
                        ** Не будет этой команды - не будет и ошибки.
                        ** Это место - самое удивительное и непонятное для меня.
                        ** Как может присвоение значения контролу так поменять 
                        ** поведение движка работы с данными? 
                        ** Присвоение значения включает "левый" буфер,
                        ** но значение записывается НЕ В НЕГО, а в другое
                        ** место! Не будь этой команды, "левый" буфер 
                        ** не включился бы. Поразительно...
                        .Value='' 
                     endif
                endwith
             endif
             ** Сейчас сделаем изменение в таблице,
             ** которое будет видимым только частично: 
             ** при прямом обращении к полю таблицы оно видно, 
             ** а вот SQL-выборка его не увидит.
             sele table1
             replace string1  with ''
             if .f.
                ** Команда, устраняющая ошибку. 
                ** Странно, но в данном случае команда =sys(1104) не способна 
                ** справиться с ошибкой, хотя в моем реальном проекте
                ** она выручала.
                flush 
             endif
             ** Нижеследующая SQL-выборка читает из "левого" буфера. 
             ** Поэтому она не видит запись с пустым значением string1.
             sele *;
                from table1;
                into cursor cursor1;
                where empty(string1)
             if reccount('cursor1')>0
                wait window 'Ошибки нет'
             else
                wait window 'Ошибка ЕСТЬ!'
             endif
             use in cursor1
             use in table1
             return .f.
       
        endproc
 enddefine

 ** Критичные для появления или подавления ошибки участки кода
 ** выделены логическими блоками if ... endif.
 ** Блок if .t. нужен для появления ошибки. Если условие хотя бы
 ** одного такого блока поменять на .f. - ошибка исчезнет.
 ** Блок if .f. способен подавить ошибку. Если условие хотя бы
 ** одного такого блока поменять на .t. - ошибка исчезнет.
 set echo off
 
 clear all
 close all
 ** Форма нам нужна, т.к. без формы (в этой же или 
 ** в отдельной процедуре) те же самые команды, что 
 ** и в форме, работают без ошибок.
 _myForm=NewObject("myForm")
 define class myform as form       
        
        proc Init()
             set safe off
             create table table1 (str4box c(5), str4base c(5))
             insert into  table1 (str4box, str4base) values  ('1','1')
             if .t.
                ** Если не переоткрыть таблицу в расшаренном режиме, 
                ** то ошибка исчезнет. Видимо, в монопольном режиме 
                ** движок работы с данными работает несколько иначе. 
                ** Возможно, что именно расшаренный режим:
                **  - или создает некий буфер, который не всегда 
                **    обновляется, и из которого потом читает данные 
                **    SQL-выборка.
                **  - или вовремя не обновляет некий существующий буфер,
                **    из которого потом читает данные SQL-выборка.
                use in table1
                if .t.
                   use table1 share 
                else
                   use table1 excl
                endif
             endif
             if .t.
                ** Этот (можно даже скрытый) объект на форме нужен.
                ** Без него ошибки не будет.
                This.NewObject('textbox1','textbox')
                with This.textbox1
                     .Enabled=.t.
                     .Visible=.t.
                     if .t.
                        ** У этого объекта должна быть
                        ** связь с таблицей, иначе ошибки не будет.
                        .ControlSource = "table1.str4box"
                     endif
                     if .t.
                        ** Вот для чего нужен объект на форме!
                        ** Не будет этой команды - не будет и ошибки.
                        ** Это место - самое удивительное и непонятное для меня.
                        ** Как может присвоение значения контролу так поменять 
                        ** работу с буферами? Поразительно...
                        .Value='' 
                     endif
                endwith
             endif
             ** Сейчас сделаем изменение в таблице,
             ** которое будет видимым только частично: 
             ** при прямом обращении к полю таблицы оно видно, 
             ** а вот SQL-выборка его не увидит.
             sele table1
             replace str4base  with ''
             if !empty(str4base)
                ** Сюда мы в любом случае не должны зайти. 
                ** Это просто проверка на прямое чтение из поля.
                wait window 'Странно, что значение в поле не записалось...'
             endif
             if .f.
                ** Команда, устраняющая ошибку. 
                ** Странно, но в данном случае команда =sys(1104) не способна 
                ** справиться с ошибкой, хотя в моем реальном проекте
                ** она выручала.
                flush 
             endif
             ** Нижеследующая SQL-выборка читает из необновленного буфера. 
             ** Поэтому она не видит запись с пустым значением str4box.
             if .t.
                sele *;
                   from table1;
                   into cursor cursor1;
                   where empty(str4base)
             else
                ** В VFP9 появилась возможность читать данные из буфера.
                ** Это устраняет ошибку, но требует явного задания, т.к.
                ** по умолчанию читаются данные с диска. Т.е. в общем случае
                ** все те многочисленные изменения, которые успевает сделать
                ** какая-либо программа, будут попросту по умолчанию не видны 
                ** САМОЙ ЖЕ ПРОГРАММЕ в ее SQL-выборках. Я понимаю, когда 
                ** невидимы изменения, сделанные другими пользователями в сети, 
                ** до тех пор, пока они не сбросят изменения на сетевой диск. 
                ** Но чтобы были невидимы СОБСТВЕННЫЕ, причем ПРЯМЫЕ изменения
                ** в ТАБЛИЦЕ!
                sele *;
                   from table1;
                   with (buffering=.t.);
                   into cursor cursor1;
                   where empty(str4base)
             endif
             if reccount('cursor1')>0
                wait window 'Ошибки нет'
             else
                wait window 'Ошибка ЕСТЬ!'
             endif
             use in cursor1
             use in table1
             return .f.
       
        endproc
 enddefine