powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запись даты при старте таблицы(все таже 2.6 лиса)
12 сообщений из 37, страница 2 из 2
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36003498
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кстати, SKIP то забыли - без него вообще бесконечный цикл должен получаться
Код: plaintext
1.
2.
3.
4.
5.
go top
do while not eof()
replace d_v with ctod(m.d)
SKIP
enddo
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36003501
P1rat3Dag
Код: plaintext
1.
replace all d_v with ctod(m.d) in RJ


Реплейс не отра батывает...Не надо рассказывать сказки. Если он не срабатывает у Вас, то только у Вас, по причинам, чс которыми и надо разбираться.
Далее. Последовательность цифр, которую Вы тут привели на скриншоте датой не может быть ни при каком раскладе. В дате должны быть разделители, например, точки. Вот так: 12.05.2009
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36003636
P1rat3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
проходящий.
Реплейс не отра батывает...Не надо рассказывать сказки. Если он не срабатывает у Вас, то только у Вас, по причинам, чс которыми и надо разбираться.
Далее. Последовательность цифр, которую Вы тут привели на скриншоте датой не может быть ни при каком раскладе. В дате должны быть разделители, например, точки. Вот так: 12.05.2009[/quot]

На счет этого дата спокойно форматируется под ту что установлена в начале программы!
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36003638
P1rat3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И ещё если не верите мне попытайтесь использовать мою процедуру в своем примере!
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36004085
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
P1rat3И ещё если не верите мне попытайтесь использовать мою процедуру в своем примере!
Вы вообще-то опцию ALL в команде replace заметили? А использовали?

Сделайте тестовый пример. Не по вашей программе, а тестовый сам по себе

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
* Создаем тестовый курсор
create cursor test (f1 N)

* Создаем в нем  2  пустые строки
append blank
append blank

* заменяем значение f1 во ВСЕХ строках
replace all f1 with  10 

* смотрим, что получилось
go top
BROWSE 

Этот тест можно прогнать в командном окне.
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36010050
P1rat3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не могу избавиться от ошибки всеравно даже используя replace всеравно вылетает ругаясь на ctod(m.d)
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36010313
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Заряди где-нибудь перед replace
wait wind ctod(m.d)

Дату точно видишь?
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36011562
P1rat3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

Тепер он ругается на эту строчку... пишет туже ошибку что и при выполнении реплейс проблема как и раньше в ctod(m.d) только вот в чем причина неизвестно, я переменную d обьявил так d=0, при учете того что фильтрация нормально отрабатывает при этом... тоже используя ctod, но по другой системе...
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36011607
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, все, что о вас думают, вам и так скажут... Поэтому опускаю вступительную часть

Если вы пользуетесь какой-то функцией, то, для начала, надо почитать описание этой функции. Функция CTOD() ожидает в качестве входного параметра переменную символьного типа. Почему-то мне кажется, что

d=0

Означает, что переменная имеет числовой тип данных. Чтобы она имела символьный тип данных надо писать так

d = ""

Кроме того, при возникновении ошибки появляется диалоговое окно, в котором есть кнопочка Help (не помню, было это уже в FPD?). Если ее нажать, то открывается статья с описанием ошибки, возможными причинами ее возникновения и примерными способами решения проблемы.

Также вам вряд ли кто поможет, если вопрос формулируется так: "программа не работает" или "ругается". Укажите дословно текст ошибки. Какими словами ругается?
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36012235
GermanGM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
P1rat3,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
m.d={} * переменная

*-------тело процедуры------------select rj
define window tmp from  7 , 40  to  11 , 64  double float title 'Введите дату' color scheme  10  shadow
activate window tmp
@ $,$+ 1  say 'Дата: ' get m.d picture '@D'
read modal
deactivate window tmp
release window tmp
if lastkey ()= 27 
pop key
return
endif
if alias()<>'RJ'
 select RJ
endif
replace ALL d_v with m.d

...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36012240
GermanGM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
(блин, не всю шелуху убрал...)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
m.d={}
define window tmp from  7 , 40  to  11 , 62  double float title 'Введите дату' color scheme  10  shadow
activate window tmp
@  1 , 2  say 'Дата: ' get m.d picture '@D'
read modal
deactivate window tmp
release window tmp
if lastkey ()= 27 
pop key
return
endif
if alias()<>'RJ'
 select RJ
endif
replace ALL d_v with m.d
...
Рейтинг: 0 / 0
Запись даты при старте таблицы(все таже 2.6 лиса)
    #36013934
P1rat3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
GermanGM,

Большое спасибо
...
Рейтинг: 0 / 0
12 сообщений из 37, страница 2 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запись даты при старте таблицы(все таже 2.6 лиса)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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