Автор | Сообщение |
|
| |
Пост N: 10
Зарегистрирован: 23.01.07
|
|
Отправлено: 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.? возможно ли это изменить?
|
|
|
Ответов - 4
[только новые]
|
|
|
| |
Пост N: 105
Зарегистрирован: 06.06.06
|
|
Отправлено: 01.02.07 10:40. Заголовок: Re:
lena, у меня после открытия dbeditом пустой таблицы eof()=.T. (Clipper 5.2e)
|
|
|
|
| |
Пост N: 106
Зарегистрирован: 06.06.06
|
|
Отправлено: 01.02.07 10:42. Заголовок: Re:
Действительно, в xHarbour после открытия dbeditом пустой таблицы eof()=.F.
|
|
|
|
| Администратор
|
Пост N: 480
Зарегистрирован: 23.05.05
|
|
Отправлено: 01.02.07 15:15. Заголовок: Re:
Виноват dbSkip(-1) После него eof() становится .F. В клиппере так же Но реализация dbedit разная, и dbedit-харбор в конце отрабатывает dbSkip(-1) если eof, вот и такой эффект Можно после dbEdit поставить dbGoto(RecNo())
|
|
|
|
| |
Пост N: 11
Зарегистрирован: 23.01.07
|
|
Отправлено: 01.02.07 15:36. Заголовок: Re:
Pasha, спасибо, помогло.
|
|
|
|