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

Задача: Выдать общую стоимость работ по каждому району.
Использую таблицу с полем(Таблица одиночная без связей и т.д.): Table_Zelenstroi.cena
Суть: Нужно пройтись по всем записям с любым выбранным районом и их сложить в одну переменную или поле Table_Zelenstroi.raion .

Помогите пожалуйста с подробным примером, я ломаю себе голову уже не знаю сколько с этим. По оператору IF только первую запись берёт и всё.

Заранее огромное спасибо :)
...
Рейтинг: 0 / 0
14.12.2011, 15:27
| Ответить | Цитировать | Написать  
Пройтись по всем записям в одиночной таблице
    #37575589
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Never74Приветствую всех, у меня срочный вопрос....помогите пожалуйста...

Задача: Выдать общую стоимость работ по каждому району.
Использую таблицу с полем(Таблица одиночная без связей и т.д.): Table_Zelenstroi.cena
Суть: Нужно пройтись по всем записям с любым выбранным районом и их сложить в одну переменную или поле Table_Zelenstroi.raion .

Помогите пожалуйста с подробным примером, я ломаю себе голову уже не знаю сколько с этим. По оператору IF только первую запись берёт и всё.

Заранее огромное спасибо :)

Код: sql
1.
2.
3.
4.
5.
6.
Local ПеременнаяДляСуммы
ПеременнаяДляСуммы = 0
select МояТаблица
scan for ПолеМоейТаблицы = Району
ПеременнаяДляСуммы = ПеременнаяДляСуммы + МояТаблица.ПолеДляСложения
endscan
...
Рейтинг: 0 / 0
14.12.2011, 15:35
| Ответить | Цитировать | Написать  
Пройтись по всем записям в одиночной таблице
    #37575630
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
в переменную
Код: sql
1.
SUM cena for Raion = 'zzz' to lnVar


в поле
Код: sql
1.
select sum(cena) as nSum from MyTable where Raion = 'zzz' into cursor tSum
...
Рейтинг: 0 / 0
14.12.2011, 15:43
| Ответить | Цитировать | Написать  
Пройтись по всем записям в одиночной таблице
    #37575704
Never74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Never74
Гость
PaulWist , извини, у меня что-то не выходит...вот как я написал...(
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
NameYlica=ALLTRIM(thisform.text1.Value)

Local Summ
Summ = 0
select Table_Zelenstroi
scan for ylica = NameYlica
Summ = Summ + Table_Zelenstroi.cena
endscan



Dima T , извини, я не очень селён ещё в SQL (((, сможешь показать по кодам в этом посту как правильно нужно? Пожалуйста(
...
Рейтинг: 0 / 0
14.12.2011, 16:01
| Ответить | Цитировать | Написать  
Пройтись по всем записям в одиночной таблице
    #37575760
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Never74 PaulWist , извини, у меня что-то не выходит...вот как я написал...(
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
NameYlica=ALLTRIM(thisform.text1.Value)

Local Summ
Summ = 0
select Table_Zelenstroi
scan for ylica = NameYlica
Summ = Summ + Table_Zelenstroi.cena
endscan



Dima T , извини, я не очень селён ещё в SQL (((, сможешь показать по кодам в этом посту как правильно нужно? Пожалуйста(
С виду ты правильно свой код написал. Что именно не выходит? Ошибки? Не тот результат?
Вот код аналогичный твоему:
Код: sql
1.
2.
3.
4.
5.
Local Summ, NameYlica
NameYlica=ALLTRIM(thisform.text1.Value)
select Table_Zelenstroi
sum Table_Zelenstroi.cena for ylica = NameYlica to Summ
MessageBox(Summ)
...
Рейтинг: 0 / 0
14.12.2011, 16:17
| Ответить | Цитировать | Написать  
Пройтись по всем записям в одиночной таблице
    #37575988
Never74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Never74
Гость
Dima T , спасибо тебе, уже появились кое какие отрывы от пропасти :) Но пока ошибочно работает:


1.Случай, когда пусто, то есть без имени улицы:
http://pixs.ru/showimage/22png_4693529_3551966.png
2.Случай, когда есть название улицы:
http://pixs.ru/showimage/11png_1015689_3551963.png


Помоги пожалуйста :)
...
Рейтинг: 0 / 0
14.12.2011, 17:34
| Ответить | Цитировать | Написать  
Пройтись по всем записям в одиночной таблице
    #37576201
Never74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Never74
Гость
Всем спасибо за помощь, разобрался :)

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
USE

DO CASE
CASE EMPTY(thisform.text1.value)=.f.

NameRaion=ALLTRIM(thisform.text1.Value)
Summ=0

SET DATE GERMAN
SET CENTURY ON

USE "Data\Table_Zelenstroi"

Scan for Table_Zelenstroi.raion = NameRaion
Summ = Summ + Table_Zelenstroi.cena
ENDSCAN

ThisForm.label2.Visible=.T.
ThisForm.label2.Caption="Îáùàÿ ñòîèìîñòü â ðàéîíå "+ NameRaion +" cîñòàâëÿåò ="+STR(summ)

ENDCASE
USE
...
Рейтинг: 0 / 0
14.12.2011, 18:51
| Ответить | Цитировать | Написать  
Пройтись по всем записям в одиночной таблице
    #37577127
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Never74Всем спасибо за помощь, разобрался :)

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
USE

DO CASE
CASE EMPTY(thisform.text1.value)=.f.

NameRaion=ALLTRIM(thisform.text1.Value)
Summ=0

SET DATE GERMAN
SET CENTURY ON

USE "Data\Table_Zelenstroi"

Scan for Table_Zelenstroi.raion = NameRaion
Summ = Summ + Table_Zelenstroi.cena
ENDSCAN

ThisForm.label2.Visible=.T.
ThisForm.label2.Caption="Îáùàÿ ñòîèìîñòü â ðàéîíå "+ NameRaion +" cîñòàâëÿåò ="+STR(summ)

ENDCASE
USE



А чего не последовали совету Dima T
SUM cena for raion = NameRaion to Summ

Букв меньше.
...
Рейтинг: 0 / 0
15.12.2011, 11:47
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пройтись по всем записям в одиночной таблице
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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