Отправлено: 31.01.07 16:21. Заголовок: dbedit()+xHarbour

&&открываю пустую таблицу testdbf
PRIVATE aStruct := { ;
{ "CHARACTER", "C", 25, 0 }, ;
{ "NUMERIC" , "N", 8, 0 }, ;
{ "DOUBLE" , "N", 8, 2 }, ;
{ "DATE" , "D", 8, 0 }, ;
{ "LOGICAL" , "L", 1, 0 }, ;
{ "MEMO1" , "M", 10, 0 }, ;
{ "MEMO2" , "M", 10, 0 } ;
}

DbCreate( "testdbf", aStruct, "DBFCDX", .T., "MYALIAS" )

use testdbf
go top
?eof() && eof() Выдает .T.
wait ''
dbedit()
?eof() && после dbedit() здесь почему-то .F.
?RECNO() && и RECNO()=1
wait ''
почему после открытия dbeditом пустой таблицы eof()=.F.?
возможно ли это изменить?

 Отправлено: 01.02.07 10:40. Заголовок: Re:

lena, у меня после открытия dbeditом пустой таблицы eof()=.T. (Clipper 5.2e)

 Отправлено: 01.02.07 10:42. Заголовок: Re:

Действительно, в xHarbour после открытия dbeditом пустой таблицы eof()=.F.

 Отправлено: 01.02.07 15:15. Заголовок: Re:

Виноват dbSkip(-1)

После него eof() становится .F.
В клиппере так же

Но реализация dbedit разная, и dbedit-харбор в конце отрабатывает dbSkip(-1) если eof,
вот и такой эффект
Можно после dbEdit поставить dbGoto(RecNo())

 Отправлено: 01.02.07 15:36. Заголовок: Re:

Pasha, спасибо, помогло.