powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / запрос
11 сообщений из 11, страница 1 из 1
запрос
    #35881368
Liosha_nove4ok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
в комбо3 вырераю службу, в гриде должны появится имена, таб номер и.т.д. и.т.п. но в гриде не нойму почему показывает одну и туже инфу для всех служб, понемаю что тут мой прагон но не могу понять где имено. помогите, подскажите как исправить ошибку?

a='usl_do'
b='bd_pr'
c='sprav'

IF thisform.combo3.Value='служба'

SELECT 0
USE &a
SELECT 0
USE &b
SELECT 0
USE &c

SELECT &b->name, &a->tab_nom, &a->summa, &a->datv, &a->cena, &a->kol, &a->summ, &a->datr, &c->name, &c->cod;
FROM data1!&a, data1!&c, data1!&b;
WHERE &a->tab_nom = &b->tab_nom AND &c->nom = &a->cods AND &c->cod = tip ;
ORDER BY &b->name;
INTO CURSOR serv
ENDIF

IF reccount()=0
thisform.grid1.Visible=.f.

ELSE

thisform.grid1.Recordsource='serv'
thisform.grid1.Visible=.t.
thisform.grid1.Refresh
ENDIF
...
Рейтинг: 0 / 0
запрос
    #35881384
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ох.. ох.. ох..

где увидел мароподстановки?
кто такое делать подсказал?
...
Рейтинг: 0 / 0
запрос
    #35881395
Liosha_nove4okSELECT 0
USE &a
SELECT 0
USE &b
SELECT 0
USE &c

SELECT &b->name, &a->tab_nom, &a->summa, &a->datv, &a->cena, &a->kol, &a->summ, &a->datr, &c->name, &c->cod;
FROM data1!&a, data1!&c, data1!&b;
WHERE &a->tab_nom = &b->tab_nom AND &c->nom = &a->cods AND &c->cod = tip ;
ORDER BY &b->name;
INTO CURSOR serv
ENDIF

Ужас! Кто такому научил?
...
Рейтинг: 0 / 0
запрос
    #35881399
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Liosha_nove4ok

покажи гада - придушим
...
Рейтинг: 0 / 0
запрос
    #35881420
Liosha_nove4ok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да ладно вам парни прикалыватся, знаю что сдесь умный народ ошивается, лучше помогите
...
Рейтинг: 0 / 0
запрос
    #35881429
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тупо, не разбираясь в порядке объединения и каким они образом должны ...
писать нужно как-то так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
SELECT   t2.name ;
	   , t1.tab_nom ; 
	   , t1.summa ;
	   , t1.datv ;
	   , t1.cena ;
	   , t1.kol ; 
	   , t1.summ ; 
	   , t1datr ;
	   , t3.name ; 
	   ,t3.cod ;
FROM t1 usl_do ;
	left join bd_pr t2 on t1.tab_nom = t2.tab_nom ;
	left join sprav t3 on t3.nom = t1.cods AND t1.cod = tip ;
WHERE <вот здесь нужно ограничить записи> ;
ORDER BY t2.name ;
INTO CURSOR serv

для полного ответа
рисуйте примерные таблички и показывайте что хотчется в рез-те
...
Рейтинг: 0 / 0
запрос
    #35881442
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
+ дайте правдивый ответ на вопрос: что побудило исп-ть макроподстановку
ответ нужен не абы покуражиться, может оно Вам действит-но нужно, подскажем как этого не делать
...
Рейтинг: 0 / 0
запрос
    #35881443
Liosha_nove4okда ладно вам парни прикалыватся, знаю что сдесь умный народ ошивается, лучше помогитеИ как можно помочь с таким кодом? Или у нас есть упомянутые в коде таблицы? Или нас за телепатов держат?
Даже в этом нехорошем коде не видно никаких изменений условий выборки. Следовательно выборка будет одна и та же.
...
Рейтинг: 0 / 0
запрос
    #35881459
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
+
Код: plaintext
1.
2.
3.
4.
IF reccount()= 0 

thisform.grid1.Visible=.f.

ELSE

зачем так жестого? почему непоказывать объект?
что будет если будет пустой грид?

курсовик или для дела?
нарисуйте кратенько постановку,
если динамически не меняется условие ограничение,
то в кач-ве решения оч.напрашивается курсорадаптер с рефрешкурсором
...
Рейтинг: 0 / 0
запрос
    #35881579
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
все исчез вопрошавший, запугали
...
Рейтинг: 0 / 0
запрос
    #35882085
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
thisform.grid1.RecordSource=""
SELECT bd_pr.name, usl_do.tab_nom, usl_do.summa, usl_do.datv, usl_do.cena, usl_do.kol, ;
usl_do.summ, usl_do.datr, sprav.name, sprav.cod ;
FROM data1!usl_do ;
inner join data1!sprav ;
ON usl_do.cods=sprav.nom ;
inner join  data1!bd_pr ;
ON usl_do.tab_nom = bd_pr.tab_nom ;
WHERE sprav.cod =thisform.combo3.Value ;
ORDER BY bd_pr.name ;
INTO CURSOR serv
* если условие ставиться по полю "sprav.cod", для примера. Это мое предположение, 
* "&c->cod = tip" подумалось, что tip это переменная, или параметр объекта для отбора записей.
thisform.grid1.RecordSource="serv"
thisform.grid1.SetFocus
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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