| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
reasonat
Зарегистрирован: 01.07.2009
Сообщения: 224
Откуда: Екатеринбург
|
 Добавлено: Чт Июл 28, 2011 9:35 am Заголовок сообщения: |
 |
|
пробежать циклом по открытым таблицам и поймать нужное имя.
А так - просто закрыть эту таблицу с обработчиком ошибок, чтоб не ругалось на несуществующую таблицу. |
|
| Вернуться к началу |
|
 |
SergS
Зарегистрирован: 01.11.2010
Сообщения: 51
|
| Добавлено: Чт Июл 28, 2011 11:58 am Заголовок сообщения: |
|
|
| reasonat писал(а): |
| пробежать циклом по открытым таблицам и поймать нужное имя. |
как это сложно.
второй совет гораздо ближе к истине.
т.е. просто обратиться к таблице за какой-нибудь информацией, которая, если таблица открыта, гарантировано в ней есть - типа количества записей с функцией Tableinfo(). В случае отсутствия таблицы - сгенерируется ошибка.
можно (хотя не обязательно) оформить отдельной функцией, что-то типа такого:
'================================================================
Function IsTableOpen(ByVal sTabName as String) as Logical
Dim n As Integer
IsTableOpen = True
OnError Goto ERR1
n = TableInfo(sTabName, TAB_INFO_NROWS)
OnError Goto 0
Done:
Exit Function
ERR1:
IsTableOpen = False
Resume Done
End Function
'================================================================ |
|
| Вернуться к началу |
|
|
|
Вход
Регистрация
Профиль
Пользователи
Группы
FAQ
Поиск
