powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обращение к таблицам
7 сообщений из 7, страница 1 из 1
Обращение к таблицам
    #40001177
alinell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Имеются таблицы с номерами месяца: sc01, sc02,....,sc12. Можно ли сделать так, чтобы автоматически читалась таблица текущего месяца?
...
Рейтинг: 0 / 0
Обращение к таблицам
    #40001223
FFFFFFFF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно, написав программу.
...
Рейтинг: 0 / 0
Обращение к таблицам
    #40001235
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: sql
1.
2.
3.
4.
if used('sc')
     use in sc
endif
use ('sc' + chrtran(str(month(date()), 2), ' ', '0')) in 0 alias sc


далее в алиасе sc будет текущий месяц
...
Рейтинг: 0 / 0
Обращение к таблицам
    #40001293
asdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dima T,
Вот Дима телепат)))
А я ничего из вопроса не понял. А по ответу, все стало ясно)
...
Рейтинг: 0 / 0
Обращение к таблицам
    #40004192
alinell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,
Спасибо, пример работает. Но у меня таблицы с месяцами хранятся в другой папке (F:\dat\cex\...), а не где запускается exe. Как быть в моем случае?
if used('sc')
use in sc
endif
USE ('sc' + chrtran(str(month(date()), 2), ' ', '0')) IN 0 ALIAS sc
SELECT 1
USE IN cur shared
SET FILTER TO sc09.kolp <> 0 AND (sc09.pp <> 'c' AND sc09.pp <> 'p' AND sc09.pp <> 'л' and sc09.pp <> 'з')
DO WHILE NOT EOF('sc09')
SELECT cur
APPEND BLANK
replace Cur.pp WITH SC09.pp
replace Cur.cex WITH VAL(LEFT(SC09.cex,2))
replace Cur.kizch WITH SC09.kizch
replace Cur.kolp WITH SC09.kolp
SKIP 1 IN sc09
ENDDO

DELETE FOR cur.cex <> number_cex IN cur
...
Рейтинг: 0 / 0
Обращение к таблицам
    #40004195
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Надо указывать полный путь при открытии.

Например при старте проги заведи переменную с путем до папки с таблицами
Код: sql
1.
2.
piblic gcDataPath
gcDataPath = 'F:\dat\cex\'


и используй ее
Код: sql
1.
2.
3.
...
USE (gcDataPath + 'sc' + chrtran(str(month(date()), 2), ' ', '0')) IN 0 ALIAS sc
...
...
Рейтинг: 0 / 0
Обращение к таблицам
    #40004427
alinell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T, Спасибо большое, все работает
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обращение к таблицам
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]