Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обращение к таблицам / 7 сообщений из 7, страница 1 из 1
22.09.2020, 09:20
    #40001177
alinell
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обращение к таблицам
Имеются таблицы с номерами месяца: sc01, sc02,....,sc12. Можно ли сделать так, чтобы автоматически читалась таблица текущего месяца?
...
Рейтинг: 0 / 0
22.09.2020, 11:14
    #40001223
FFFFFFFF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обращение к таблицам
Можно, написав программу.
...
Рейтинг: 0 / 0
22.09.2020, 12:02
    #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
22.09.2020, 14:03
    #40001293
asdor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обращение к таблицам
Dima T,
Вот Дима телепат)))
А я ничего из вопроса не понял. А по ответу, все стало ясно)
...
Рейтинг: 0 / 0
30.09.2020, 10:25
    #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
30.09.2020, 10:35
    #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
01.10.2020, 09:05
    #40004427
alinell
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обращение к таблицам
Dima T, Спасибо большое, все работает
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обращение к таблицам / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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