ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Работа с таблицами
5 сообщений из 5, страница 1 из 1
Работа с таблицами
    #40004749
ularsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ularsoft
Гость
Здр-те!

Хочу получить количество строк и сумму в таблице со следующими параметрами:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
***
SELECT * from Tempvo WHERE t1_n5<>0 AND T1_kodv='392' INTO CURSOR 'temp'
IF NOT EOF()
  SCAN
    SEEK temp.T1_kodv IN Cursvl
CALCULATE cnt(), sum(t1_n5) TO cn2,sm2 FOR T1_kodv='392' AND t1_n5<>0
cn22=cn2
sm22=sm2*Cursvl.kv_curs/10
  ENDSCAN 
ENDIF 
***


Получается таблица temp пустая, соответственно программа ругается "Variable 'cn22' is not found". Что можно сделать, чтобы cn22 был 0, если таблица пустая?
...
Рейтинг: 0 / 0
02.10.2020, 08:48
| Ответить | Цитировать | Написать  
Работа с таблицами
    #40004764
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
ularsoft
Здр-те!

Хочу получить количество строк и сумму в таблице со следующими параметрами:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
***
SELECT * from Tempvo WHERE t1_n5<>0 AND T1_kodv='392' INTO CURSOR 'temp'
IF NOT EOF()
  SCAN
    SEEK temp.T1_kodv IN Cursvl
CALCULATE cnt(), sum(t1_n5) TO cn2,sm2 FOR T1_kodv='392' AND t1_n5<>0
cn22=cn2
sm22=sm2*Cursvl.kv_curs/10
  ENDSCAN 
ENDIF 
***


Получается таблица temp пустая, соответственно программа ругается "Variable 'cn22' is not found". Что можно сделать, чтобы cn22 был 0, если таблица пустая?
1. Проинициализировать её нулём до Scan.
2. Мне кажется, что код несколько грузноват и ресурсоёмок, в нем куча не нужных и перестраховочных действий.
Возможно, что его можно заменить чем-нить подобным:
Код: sql
1.
2.
3.
4.
5.
Dimension laTemp[2]
Store 0 to laTemp, cn22
Select Cnt(), Sum(t1_n5) from Tempvo Where t1_n5<>0 And T1_kodv='392' Into array laTemp
cn22 = laTemp[1]
sm22 = laTemp[1]*Cursvl.kv_curs/10
...
Рейтинг: 0 / 0
02.10.2020, 09:07
| Ответить | Цитировать | Написать  
Работа с таблицами
    #40004845
ularsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ularsoft
Гость
Sergey Sizov
1. Проинициализировать её нулём до Scan.
2. Мне кажется, что код несколько грузноват и ресурсоёмок, в нем куча не нужных и перестраховочных действий.
Возможно, что его можно заменить чем-нить подобным:
Код: sql
1.
2.
3.
4.
5.
Dimension laTemp[2]
Store 0 to laTemp, cn22
Select Cnt(), Sum(t1_n5) from Tempvo Where t1_n5<>0 And T1_kodv='392' Into array laTemp
cn22 = laTemp[1]
sm22 = laTemp[1]*Cursvl.kv_curs/10

В том то и дело, что в таблице ничего нету. И программа не находит cn22. Что делать?
...
Рейтинг: 0 / 0
02.10.2020, 12:43
| Ответить | Цитировать | Написать  
Работа с таблицами
    #40004847
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
ularsoft
Sergey Sizov
1. Проинициализировать её нулём до Scan.
2. Мне кажется, что код несколько грузноват и ресурсоёмок, в нем куча не нужных и перестраховочных действий.
Возможно, что его можно заменить чем-нить подобным:
Код: sql
1.
2.
3.
4.
5.
Dimension laTemp[2]
Store 0 to laTemp, cn22
Select Cnt(), Sum(t1_n5) from Tempvo Where t1_n5<>0 And T1_kodv='392' Into array laTemp
cn22 = laTemp[1]
sm22 = laTemp[1]*Cursvl.kv_curs/10

В том то и дело, что в таблице ничего нету. И программа не находит cn22. Что делать?
Я написал что делать. И даже в приведенном примере замены сие действие продемонстрировано. Какая буква в моём тексте не понятна?
...
Рейтинг: 0 / 0
02.10.2020, 12:47
| Ответить | Цитировать | Написать  
Работа с таблицами
    #40004854
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
ularsoft
В том то и дело, что в таблице ничего нету. И программа не находит cn22. Что делать?

Ноль присвой
Код: sql
1.
2.
3.
4.
5.
IF NOT EOF()
...
ELSE
  cn22=0
ENDIF
...
Рейтинг: 0 / 0
02.10.2020, 13:02
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Работа с таблицами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=40004749&tid=1581514]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 160ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 243ms
total:  508ms
созд. / загр.: 508ms
x
x
Закрыть


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