ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запрос на выбор потдерева из дерева на FOX PRO 6.0
43 сообщений из 43, показаны все 2 страниц
  все  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34201462
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Задача такова: есть таблица, в которой организвана иерархия. Иерархия глубокая (может достигнуть 100000 записей), и каждый родитель может иметь неколько (теоритически неограниченое количество дочерних записей) Таблица имеет поля: ID, PID, LEVEL, NAME.
Нужно по заданому ID вывести все дочерние для него записи.

Итак что мы имеем. Вариант с ограниченой глубиной не подходит ( этот )

Просканировав в течении 3-х дней форум, я убедился что здесь ОЧЕНЬ много интересных решених похожей задачи, но все они написаны для sql server, что возможно при знании синтаксиса, возможно перевести на fox pro. К сожалению я достаточными знаниями для этого не обладаю.
Вот наиболее понравившееся:

Aleksey-KCREATE FUNCTION dbo._CLENT_Tree (@CLIENT_ID INT)
RETURNS @ListC TABLE (CLIENT_ID INT, NAME CHAR(40), Parent_ID INT, Level TINYINT)
AS
BEGIN
DECLARE @LEVEL TINYINT
IF ISNULL(@CLIENT_ID, 0) = 0
BEGIN
SET @LEVEL = 0
INSERT INTO @ListC (CLIENT_ID, NAME, Parent_ID, Level)
SELECT CLIENT_ID, Name, ISNULL(Parent_ID, 0), Level
FROM CLIENT WHERE Level = @LEVEL
END
ELSE
BEGIN
INSERT INTO @ListC (CLIENT_ID, NAME, Parent_ID, Level)
SELECT CLIENT_ID, Name, ISNULL(Parent_ID, 0), Level
FROM CLIENT WHERE CLIENT_ID = @CLIENT_ID
SELECT @LEVEL = Level FROM @ListC
END
WHILE @@ROWCOUNT > 0
BEGIN
SET @LEVEL = @LEVEL + 1
INSERT INTO @ListC (CLIENT_ID, NAME, Parent_ID, Level)
SELECT p.CLIENT_ID, p.Name, ISNULL(p.Parent_ID, 0), p.Level
FROM CLIENT p INNER JOIN @ListC t ON p.Parent_ID = t.CLIENT_ID
AND t.Level = @LEVEL - 1
END
RETURN
END

aleks2create table tree (PID int, ID int )

-- Все потомки @ID, включая родителя @ID
create function Childs(@ID int)
returns @t table (id int not null primary key, level int not null, UNIQUE CLUSTERED(level, id))
AS begin
declare @level int
set @level=0

insert into @t VALUES(@ID,0)

while @@rowcount>0 begin
set @level=@level+1
insert into @t
select t.ID, @level
from @t w inner join tree t on w.ID=t.PID
where w.level=@level-1
end
end

Сразу в панику вводит символ @ и # :(
Пожалуйста подскажите как перевести данный код на фокс про? или хотябы пару строк чтоб разобраться в синтаксисе.
Если есть какието решения для ФОКСА буду только рад видеть.

ХЕЛП!
...
Рейтинг: 0 / 0
14.12.2006, 22:51
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34201743
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Проблема не в том, чтобы перевести на VFP с T-SQL (это дело 5-ти минут так, как язык VFP значительно более богаче, чем T-SQL), а в том, что в VFP НЕТ такого программного объекта, как функция, возвращающая набор данных, которую можно было использовать в запросе наравне с курсором или таблицей (т.е. после FROM).

С уважением, Алексей
P.S.
@ - признак переменной. Имена всех переменные (а в T-SQL все переменные создаются только с областью видимости LOCAL) должны начинаться с @. В VFP они заменяются переменными с областью видимостью LOCAL.
# - признак временности объекта (в данных примерах - временные таблицы). Временные объекты такого рода имеют видимость, ограниченную областью создания (в данных примерах - функция), уничтожаются сами при выходе из этой области создания, а также не имеют ограничения на создания любыми пользователями. В VFP можно заменить на курсоры, создаваемые командами CREATE CURSOR ....
...
Рейтинг: 0 / 0
15.12.2006, 08:31
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34201954
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Попробуй вот так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID='0001' && первоначальная установка (поиск по заданному идентификатору)
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable SELECT * FROM myTable WHERE ID=m.lcID
	SELECT ID FROM myTable WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
...
Рейтинг: 0 / 0
15.12.2006, 10:08
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34202791
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Вот модифицировал вашу функцию под свой вариант и попробовал испраить все ошибки:

LOCAL ARRAY laID(1,1)
LOCAL lcID
LOCAL PE INT
lcID='3202676'
create table tmpTable (id int)
DO WHILE !EMPTY(m.lcID)
INSERT INTO tmpTable values (PE)
where PE IN (
SELECT ID FROM __client m
WHERE ID=m.lcID
SELECT ID FROM __client WHERE id_parent=m.lcID INTO ARRAY laID
m.lcID=IIF(_tally>0,laID(1,1),''))
ENDDO

или

LOCAL ARRAY laID(1,1)
LOCAL lcID
LOCAL PE INT
lcID='3202676'
DO WHILE !EMPTY(m.lcID)
INSERT INTO tmpTable
SELECT ID FROM __client m
WHERE ID=m.lcID
SELECT ID FROM __client m WHERE id_parent=m.lcID INTO ARRAY laID
m.lcID=IIF(_tally>0,laID(1,1),'')
ENDDO

Оба варианта после пары пропушеных ошибок выводят список всех записей из таблицы __client


Щас убегаю, вечером напишу что получилось сделать с функцией aleks2'a
...
Рейтинг: 0 / 0
15.12.2006, 13:07
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34203829
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
JevgeniyВот модифицировал вашу функцию под свой вариант и попробовал испраить все ошибки:
Оба варианта после пары пропушеных ошибок выводят список всех записей из таблицы __client

Какие ошибки?
Что значит после пары пропущенных ошибок ?
ЧЕм второй вариант отличается от предложенного мною ?
...
Рейтинг: 0 / 0
15.12.2006, 16:31
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34204595
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
LOCAL PE INT
lcID='3202676' 
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable &&<--syntax error
		SELECT ID FROM __client m
			WHERE ID=m.lcID &&<-- после выполнения запроса появляется эта: Unrecognized command verb
	SELECT ID FROM __client m WHERE id_parent=m.lcID INTO ARRAY laID&&<--lcid столбец не найжен, ошибка после выполнения
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO

Пропущеных ошибок - всмысле проигнорированых. Запрос выводит весь список из исходной таблицы
...
Рейтинг: 0 / 0
15.12.2006, 23:11
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34204599
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Пытался как-то использовать вариант aleks2'a , но к сожалению ничего путнего из этого не вышло :(
...
Рейтинг: 0 / 0
15.12.2006, 23:17
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34205338
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
http://sdm.viptop.ru/articles/sqltrees.html

Почитал тут инфу, может кто-нибудь знает как сделать что-то подобное, только чтоб выводило ТОЛЬКО ДОЧЕРНИЕ ЭЛЕМЕНТЫ для данного узла?

Вот набросал алгоритм по которому отбирается потдерево:
Код: plaintext
1.
2.
3.
4.
5.
6.
 1 . Пользователь вводит ID, система выясняет level этой записи (поле level). Создаем временную таблицу.
 2 . Цикл. 
Условие выхода: "на данном уровне нет записей. которые ссылались бы хоть на 1 элемент с предыдущего уровня" 
Тело цикла: "level+1. Все записи PID которых равен хотябы одному ID на предыдущем уровне добавить в конец временной таблицы."
 3 . Вывод временной таблицы на экран. 
 4 . Создание отчета (into cursor query... report form thereport preview)

Помогите пжалуста составить код для данного алгоритма.
...
Рейтинг: 0 / 0
16.12.2006, 23:34
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34205754
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
*Function RET_S
LPARAMETERS _id
LOCAL _s
_s=TRANSFORM(_id)
IF SEEK(_id,'table','id') AND table.parent_id# 0 
_s=_s+","+RET_S(table.parent_id)
ENDIF 
RETURN _s
Выдает всех родителей. Только изменить чтоб выдавало всех потомков.
Код: plaintext
1.
SELECT * from __client WHERE ","+transform(ID)+","$","+RET_S( 2670749 )+","
...
Рейтинг: 0 / 0
17.12.2006, 16:14
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34211736
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Jura.KПопробуй вот так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID='0001' && первоначальная установка (поиск по заданному идентификатору)
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable SELECT * FROM myTable WHERE ID=m.lcID
	SELECT ID FROM myTable WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO

Очень интересно причем здесь tmpTable, какую она играет роль?
И хотелось бы слышать какие-нибудь коментарии по этому...
...
Рейтинг: 0 / 0
19.12.2006, 23:59
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34213379
tvxtvx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tvxtvx
Гость
Эта тривиальная задача решается рекурсивной процедурой, кому интересно, пишите, выложу....
...
Рейтинг: 0 / 0
20.12.2006, 14:36
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34213426
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Jevgeniy
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID='3202676' 
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable &&<--syntax error
		SELECT ID FROM __client 
		WHERE ID=m.lcID &&<-- после выполнения запроса появляется эта: Unrecognized command verb
	SELECT ID FROM __client m WHERE id_parent=m.lcID INTO ARRAY laID&&<--lcid столбец не найжен, ошибка после выполнения
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO

Пропущеных ошибок - всмысле проигнорированых. Запрос выводит весь список из исходной таблицы
Jevgeniy
Очень интересно причем здесь tmpTable, какую она играет роль?
И хотелось бы слышать какие-нибудь коментарии по этому...


Надо делать так в одну строчку или с использованием ;

Код: plaintext
INSERT INTO tmpTable SELECT ID FROM __client WHERE ID=m.lcID

Теперь по поводу tmpTable в нее и копируется результат
т.е. нужно сначала создать данную таблицу с использованием например
Код: plaintext
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
или
Код: plaintext
SELECT * FROM __client WHERE .F. INTO CURSOR tmpTable READWRITE
правда не помню работает такая конструкция в 6.0, но с 7.0 точно работает
А ошибка вышла из за того что у Вас не создана временная таблица.
...
Рейтинг: 0 / 0
20.12.2006, 14:46
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34213940
__Владимир__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Владимир__
Гость
Данная функция соберёт всех потомков
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
function P_ADD
lparameters _PID
local _cur
 if !used("tmpTable")
  CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
 endif 
 _cur=sys( 2015 )
 select * from myTable where id=_PID into cursor (_cur)
 go top in (_cur)
 do while !eof("_cur")
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)
  =P_ADD(&_cur..ID)
  skip in (_cur)
 enddo
 use in (_cur)
Участок
Код: plaintext
1.
2.
 if !used("tmpTable")
  CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
 endif

можно вынести за пределы функции
...
Рейтинг: 0 / 0
20.12.2006, 16:37
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214329
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
tvxtvxЭта тривиальная задача решается рекурсивной процедурой, кому интересно, пишите, выложу....
Интересно! Пиши!
...
Рейтинг: 0 / 0
20.12.2006, 18:40
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214437
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
__Владимир__
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
if !used("tmpTable")
  CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 20 ))
endif 
function P_ADD
lparameters _PID
local _cur
 _cur=sys( 1 )
 select * from __CLIENT where id=_PID into cursor (_cur)
 go top in (_cur)
 do while !eof("_cur")
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)
  =P_ADD(&_cur..ID)
  skip in (_cur)
 enddo
 use in (_cur)



хм, странно. Все работает, но результат не выдает никакой.

Не создает таблицу. Пробовал убрать условие создания таблицы - эффекта никакого.
Я так понял, функция помещает записи в курсор tmpTable, вытался вывести содержимое этой таблицы после вызова данной функции - не показывает.

Jura.K
А ошибка вышла из за того что у Вас не создана временная таблица.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
 
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID='1' 
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable SELECT * FROM __client WHERE ID=m.lcID&&<-- syntax error
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
Выдает ошибку в том же месте (syntax error)
Код: plaintext
1.
INSERT INTO tmpTable SELECT * FROM myTable WHERE ID=m.lcID
а именно на SELECT * FROM;
:(
...
Рейтинг: 0 / 0
20.12.2006, 19:27
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214540
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Увидел вот ЭТО и не удержался.
автор
Код: plaintext
1.
2.
3.
4.
5.
 select * from __CLIENT where id=_PID into cursor (_cur)
 go top in (_cur)
 do while !eof("_cur")
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)
  =P_ADD(&_cur..ID)


Код: plaintext
1.
2.
3.
4.
5.
6.
 select * from __CLIENT where id=_PID into cursor (_cur)
*** go top in _cur)  && не нужна в силу того, что в свежеполученном курсоре указатель ВСЕГДА стоит на первой записи
* do while !eof("_cur") 
scan
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (ID,PID,LEVEL,NAME)
  =P_ADD(ID)
endscan
И никаких тормозных макроподстановок и вычислений конца файла.
...
Рейтинг: 0 / 0
20.12.2006, 20:30
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214620
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 20 ))
&&function P_ADD
&&lparameters 
local _PID 
local _cur
 _cur=sys( 1 )
select * from __CLIENT where id=_PID into cursor (_cur);
scan
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (ID,PID,LEVEL,NAME)
  =P_ADD(ID)
endscan
на строке scan выдает ошибку "command contains unrecognized phrase/keyword"
Такое же выдавало и на function lparameters _PID , поэтому оно стало local _PID.
...
Рейтинг: 0 / 0
20.12.2006, 21:47
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214657
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Код: plaintext
1.
select * from __CLIENT where id=_PID into cursor (_cur);
scan


И зачем здесь точка с запятой? Иоткуда взялся этот знак?
...
Рейтинг: 0 / 0
20.12.2006, 22:45
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214725
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Sergey Sizov
Код: plaintext
1.
select * from __CLIENT where id=_PID into cursor (_cur);
scan


И зачем здесь точка с запятой? Иоткуда взялся этот знак?
ну в противном случае выдает на предыдущей строке о синтаксической ошибке
...
Рейтинг: 0 / 0
21.12.2006, 00:06
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214726
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Всмысле не на предыдущей, а на этой строке
...
Рейтинг: 0 / 0
21.12.2006, 00:07
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214940
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Jura.K
А ошибка вышла из за того что у Вас не создана временная таблица.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
 
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID='1' 
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable SELECT * FROM __client WHERE ID=m.lcID&&<-- syntax error
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
Выдает ошибку в том же месте (syntax error)
Код: plaintext
1.
INSERT INTO tmpTable SELECT * FROM myTable WHERE ID=m.lcID
а именно на SELECT * FROM;
значит структура таблицы не соответствует tmpTable
тогда сделайте, только учтите что тип полей таблицы tmpTable должен соответствовать типу выбираемых в SELECTe полей
Код: plaintext
INSERT INTO tmpTable (ID, PID, LEVEL, NAME ) SELECT ID, PID, LEVEL, NAME FROM __client WHERE ID=m.lcID
Все это работает в VFP8.0, может быть такая инструкция в 6.0 не работает надо проверить поищу у себя 6.0 и скажу результат
...
Рейтинг: 0 / 0
21.12.2006, 08:05
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34214958
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
можно сделать так если конструкция INSERT INTO table SELECT * FROM table не работает

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID='1' 
SELECT __client 
DO WHILE !EMPTY(m.lcID)
             SCAN  
                      IF ID=m.lcID
             	INSERT INTO tmpTable (ID, PID, LEVEL, NAME) ;
                          VALUES ( __client.ID, __client.PID, __client.LEVEL, __client.NAME) 
                      ENDIF 
             ENDSCAN 
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
можно ускорить обработку если создать индекс по полю ID

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
SELECT __client 
SET ORDER TO ID
DO WHILE !EMPTY(m.lcID)
             IF SEEK(m.lcID)
                  DO WHILE ID=m.lcID
             	INSERT INTO tmpTable (ID, PID, LEVEL, NAME) ;
                          VALUES ( __client.ID, __client.PID, __client.LEVEL, __client.NAME) 
                   SKIP 
                   ENDDO 
             ENDIF 
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
попробуйте если не сложно напишите получилось или нет
...
Рейтинг: 0 / 0
21.12.2006, 08:17
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34215570
__Владимир__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Владимир__
Гость
Jevgeniy __Владимир__
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
if !used("tmpTable")
  CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 20 ))
endif 
function P_ADD
lparameters _PID
local _cur
 _cur=sys( 1 )
 select * from __CLIENT where id=_PID into cursor (_cur)
 go top in (_cur)
 do while !eof("_cur")
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)
  =P_ADD(&_cur..ID)
  skip in (_cur)
 enddo
 use in (_cur)



хм, странно. Все работает, но результат не выдает никакой.

Не создает таблицу. Пробовал убрать условие создания таблицы - эффекта никакого.
Я так понял, функция помещает записи в курсор tmpTable, вытался вывести содержимое этой таблицы после вызова данной функции - не показывает.
:(
ОК
Сделаем поподробней и с учётом пожеланий
1. создаем процедуру с именем P_ADD.PRG
Туда пишем такой текст:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
lparameters _PID
local _cur
 _cur=sys( 2015 )
 select * from __CLIENT where id=_PID into cursor (_cur)
 scan
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (ID,PID,LEVEL,NAME)
  =P_ADD(ID)
 endscan
 use in (_cur)
2. Дальше, в командном окне создаём курсор
Код: plaintext
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
3. вызываем функцию с параметром ID родителя
Код: plaintext
=P_ADD( 1 )
4.Смотрим
Код: plaintext
1.
select tmpTable
browse

и ещё- зачем подменили _cur=sys(2015) на _cur=sys(1)? не ужно это делать!
...
Рейтинг: 0 / 0
21.12.2006, 11:58
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34215883
__Владимир__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Владимир__
Гость
Есть ошибка в запросе
вот исправлено
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
lparameters _PID
local _cur
 _cur=sys( 2015 )
 select * from __CLIENT where pid=_PID into cursor (_cur)
 scan
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (ID,PID,LEVEL,NAME)
  =P_ADD(ID)
 endscan
 use in (_cur)
...
Рейтинг: 0 / 0
21.12.2006, 13:24
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34215963
NSFuimus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NSFuimus
Участник
хм... может это подойдет? или поможет
...
Рейтинг: 0 / 0
21.12.2006, 13:46
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34216585
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
to __Владимир__ Действительно. Результат отображает, но почемуто при открытии tmpTable отображает ПРАВИЛЬНОЕ количество записей. Но в итоге получаются пустые записи. в числовых полях - 0 в текстовых - пусто.

to Jura.K
Получается несоответствие типов в этой строке: IF ID=m.lcID
Хотя по идее все правильно. В таблице __client ID, PID типа Integer (пробовал numeric, но эффекта никакого)

В варианте с
Код: plaintext
INSERT INTO tmpTable (ID, PID, LEVEL, NAME ) SELECT ID, PID, LEVEL, NAME FROM __client WHERE ID=m.lcID
Синтаксическая ошибка на SELECT ID, PID, LEVEL, NAME

to NSFuimus
К сожалению ничего не подходит. т.к. дерево не бинарное и использование полей left и right невозможно.


Прикрепленный файл - то что получилось с вариантом __Владимир__'a
...
Рейтинг: 0 / 0
21.12.2006, 16:27
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34216703
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Елы палы, что то я тоже затормозил
надо первоначально присваивать переменной lcID в Вашем случае не строку, а число, раз оно у Вас имеет тип INT

Код: plaintext
1.
LOCAL lcID
lcID= 1
...
Рейтинг: 0 / 0
21.12.2006, 16:56
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34216740
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Да, после этого пропала ошибка преобразования типов, но синтаксическая - осталась :(
...
Рейтинг: 0 / 0
21.12.2006, 17:03
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34216797
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
В каком месте осталась покажите

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID= 1  
SELECT __client 
DO WHILE !EMPTY(m.lcID)
             SCAN  
                      IF ID=m.lcID
             	INSERT INTO tmpTable (ID, PID, LEVEL, NAME) ;
                          VALUES ( __client.ID, __client.PID, __client.LEVEL, __client.NAME) 
                      ENDIF 
             ENDSCAN 
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
...
Рейтинг: 0 / 0
21.12.2006, 17:13
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34216854
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
 
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID= 1 
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable (ID, PID, LEVEL, NAME ) SELECT ID, PID, LEVEL, NAME FROM __client WHERE ID=m.lcID&&<--syntax error
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
 
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID= 1 
DO WHILE !EMPTY(m.lcID)
	INSERT INTO tmpTable (ID, PID, LEVEL, NAME );
	 SELECT ID, PID, LEVEL, NAME; &&<--syntax error
	  FROM __client WHERE ID=m.lcID
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
...
Рейтинг: 0 / 0
21.12.2006, 17:29
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34216948
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Значит ваша версия фокса не поддерживает такую инструкцию используйте следующий вариант

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID= 1  
SELECT __client 
DO WHILE !EMPTY(m.lcID)
             SCAN  
                      IF ID=m.lcID
             	INSERT INTO tmpTable (ID, PID, LEVEL, NAME) ;
                          VALUES ( __client.ID, __client.PID, __client.LEVEL, __client.NAME) 
                      ENDIF 
             ENDSCAN 
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO

или что еще лучше вариант с индексом будет значительно быстрее

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
LOCAL ARRAY laID( 1 , 1 )
LOCAL lcID
lcID= 1 
SELECT __client 
INDEX ON ID TAG ID
SET ORDER TO ID
DO WHILE !EMPTY(m.lcID)
             IF SEEK(m.lcID)
                  DO WHILE ID=m.lcID
             	INSERT INTO tmpTable (ID, PID, LEVEL, NAME) ;
                          VALUES ( __client.ID, __client.PID, __client.LEVEL, __client.NAME) 
                   SKIP 
                   ENDDO 
             ENDIF 
	SELECT ID FROM __client WHERE PID=m.lcID INTO ARRAY laID
	m.lcID=IIF(_tally> 0 ,laID( 1 , 1 ),'')
ENDDO
...
Рейтинг: 0 / 0
21.12.2006, 17:49
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217022
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
К сожалению этот вариант не подходит.
В tmpTable помещается сам клиент (по ID которому отбираем, что хорошо), и не все потомки. Тестировал при такой структуре и получил следующие результаты:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 1 
______________
|  |   |  |  |  |  |
 2    3    4    5    6    7    8 
        /\
        9   11 
       |
       10
При lcID=1 я получил:
Код: plaintext
1.
2.
3.
ID       PID     LEVEL
 1           0            1 
 2           1            2
При lcID=5 я получил:
Код: plaintext
1.
2.
3.
4.
ID       PID     LEVEL
 5           1            2 
 9           5            3 
 10          9            4
Поле NAME убрал, т.к. там с ним была ошибка (variable NAME is not found)
Код: plaintext
1.
2.
INSERT INTO tmpTable (ID, PID, LEVEL, NAME) ;
                          VALUES ( __client.ID, __client.PID, __client.LEVEL, __client.NAME)
...
Рейтинг: 0 / 0
21.12.2006, 18:16
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217069
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Если не против подождать до завтра, то завтра предложу вариант который будет выбирать всех потомков
...
Рейтинг: 0 / 0
21.12.2006, 18:36
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217119
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
Конечно не против! Спасибо!
...
Рейтинг: 0 / 0
21.12.2006, 18:58
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217618
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Добрый день
Вот вариант получения всех подчиненных записей

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
LOCAL lcStartID, lnOldRecno
lcStartID= 1 
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
=add_parent(m.lcStartID)  && добавляем искомого родителя 

DO WHILE !EOF('tmpTable')
	lnOldRecno=RECNO('tmpTable')
	=add_parent(tmpTable.PID)
	GO m.lnOldREcno IN tmpTable
	SKIP IN tmpTable
ENDDO

FUNCTION add_parent
LPARAMETERS tcPid
SELECT * FROM __CLIENT WHERE id=m.tcPID INTO CURSOR _curPID
SCAN
	INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (_curPID.ID,_curPID.PID,_curPID.LEVEL,_curPID.NAME)
ENDSCAN

В качестве тестовой таблицы была создана такая таблица
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
CREATE CURSOR __CLIENT (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 1 , 2 , 1 ,'1')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 2 , 3 , 2 ,'2')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 2 , 4 , 2 ,'2')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 3 , 5 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 3 , 6 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 5 , 7 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 5 , 8 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 6 , 9 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 6 , 10 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 4 , 11 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 12 , 13 , 0 ,'0')
Пробуйте все должно работать, напишите результат
...
Рейтинг: 0 / 0
22.12.2006, 08:04
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217664
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
ой у Вас принцип заполнения идентификаторов и родителей по другому тогда код должен быть таким
Формируем начальную таблицу
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
CREATE CURSOR __CLIENT (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 1 , 0 , 1 ,'1')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 2 , 1 , 1 ,'1')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 3 , 2 , 2 ,'2')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 4 , 2 , 2 ,'2')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 5 , 3 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 6 , 3 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 7 , 5 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 8 , 5 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 9 , 6 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 10 , 6 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 11 , 4 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 12 , 13 , 0 ,'0')

Ну и собственно процедура которая собирает всех потомков
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
LOCAL lcStartID, lnOldRecno
LOCAL ARRAY laID( 1 , 1 )
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))

lcStartID= 1 
&& добавляем искомого родителя 
SELECT * FROM __CLIENT WHERE ID=m.lcStartID INTO ARRAY laID
INSERT INTO tmpTable FROM ARRAY laID
&& добавляем потомков
DO WHILE !EOF('tmpTable')
	lnOldRecno=RECNO('tmpTable')
	=add_parent(tmpTable.ID)
	GO lnOldREcno IN tmpTable
	SKIP IN tmpTable
ENDDO

FUNCTION add_parent
LPARAMETERS tcid
SELECT * FROM __CLIENT WHERE PID=m.tcID INTO CURSOR _curID
SCAN
	INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (_curID.ID,_curID.PID,_curID.LEVEL,_curID.NAME)
ENDSCAN
...
Рейтинг: 0 / 0
22.12.2006, 08:38
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217764
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
Да можно вообще не использовать функцию add_parent
а сделать так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
LOCAL lcStartID, lnOldRecno
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
lcStartID= 1 
*** добавляем искомого родителя 
SELECT * FROM __CLIENT WHERE ID=m.lcStartID INTO ARRAY laID
INSERT INTO tmpTable FROM ARRAY laID
&& добавляем потомков
DO WHILE !EOF('tmpTable')
	lnOldRecno=RECNO('tmpTable')
		SELECT * FROM __CLIENT WHERE PID=tmpTable.ID INTO CURSOR _curID
		SCAN
			INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (_curID.ID,_curID.PID,_curID.LEVEL,_curID.NAME)
		ENDSCAN
	GO lnOldREcno IN tmpTable
	SKIP IN tmpTable
ENDDO
USE IN _curID


А если VFP8 и выше можно сделать еще проще
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
LOCAL lcStartID, lnOldRecno
CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
lcStartID= 1 
*** добавляем искомого родителя 
INSERT INTO tmpTable (ID, PID, LEVEL, NAME) ;
		SELECT ID, PID, LEVEL, NAME FROM __CLIENT WHERE ID=m.lcStartID

*** добавляем потомков
DO WHILE !EOF('tmpTable')
	lnOldRecno=RECNO('tmpTable')
	INSERT INTO tmpTable (ID,PID,LEVEL,NAME) ;
                           SELECT ID,PID,LEVEL,NAME FROM __CLIENT WHERE PID=tmpTable.ID
	GO lnOldREcno IN tmpTable
	SKIP IN tmpTable
ENDDO

НО ВАМ ПРИДЕТСЯ ИСПОЛЬЗОВАТЬ код который я указывал выше
...
Рейтинг: 0 / 0
22.12.2006, 09:26
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217815
__Владимир__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Владимир__
Гость
Jevgeniy to __Владимир__ Действительно. Результат отображает, но почемуто при открытии tmpTable отображает ПРАВИЛЬНОЕ количество записей. Но в итоге получаются пустые записи. в числовых полях - 0 в текстовых - пусто.

Поправь команду
Код: plaintext
INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)
и всё заработает
вот рабочий вариант (проверено)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
CREATE CURSOR __CLIENT (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 1 , 0 , 1 ,'1')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 2 , 1 , 1 ,'1')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 3 , 2 , 2 ,'2')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 4 , 2 , 2 ,'2')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 5 , 3 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 6 , 3 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 7 , 5 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 8 , 5 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 9 , 6 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 10 , 6 , 4 ,'4')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 11 , 4 , 3 ,'3')
INSERT INTO __CLIENT (ID , PID , LEVEL , NAME ) VALUES ( 12 , 13 , 0 ,'0')

CREATE CURSOR tmpTable (ID INT, PID INT, LEVEL INT, NAME C( 100 ))
=P_ADD( 2 )
select tmpTable
BROWSE
RETURN 


PROCEDURE P_ADD
lparameters _PID
local _cur
 _cur=sys( 2015 )
 select * from __CLIENT where pid=_PID into cursor (_cur)
 scan
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)
  =P_ADD(ID)
 endscan
 use in (_cur)
RETURN
...
Рейтинг: 0 / 0
22.12.2006, 09:47
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217845
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Код: plaintext
1.
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)


И вроде бы здесь же, в этом топике обсуждалось и опять. Ну объясните мне, неразумному, ну на кой ляд здесь опять влеплена макроподстановка?
...
Рейтинг: 0 / 0
22.12.2006, 09:57
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34217928
__Владимир__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Владимир__
Гость
Sergey Sizov
Код: plaintext
1.
  INSERT INTO tmpTable (ID,PID,LEVEL,NAME) Values (&_cur..ID,&_cur..PID,&_cur..LEVEL,&_cur..NAME)


И вроде бы здесь же, в этом топике обсуждалось и опять. Ну объясните мне, неразумному, ну на кой ляд здесь опять влеплена макроподстановка?
Ну вы сами попробуйте выполнить предложенный мной последний вариант с макроподстоновкой и без.
И всё увидите!
...
Рейтинг: 0 / 0
22.12.2006, 10:23
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34218141
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Create Cursor __CLIENT (Id Int, PID Int, Level Int, Name C( 10 ))
Insert Into __CLIENT Values ( 1 , 0 , 1 ,'1')
Insert Into __CLIENT Values ( 2 , 1 , 1 ,'1')
Insert Into __CLIENT Values ( 3 , 2 , 2 ,'2')
Insert Into __CLIENT Values ( 4 , 2 , 2 ,'2')
Insert Into __CLIENT Values ( 5 , 3 , 3 ,'3')
Insert Into __CLIENT Values ( 6 , 3 , 3 ,'3')
Insert Into __CLIENT Values ( 7 , 5 , 4 ,'4')
Insert Into __CLIENT Values ( 8 , 5 , 4 ,'4')
Insert Into __CLIENT Values ( 9 , 6 , 4 ,'4')
Insert Into __CLIENT Values ( 10 , 6 , 4 ,'4')
Insert Into __CLIENT Values ( 11 , 4 , 3 ,'3')
Insert Into __CLIENT Values ( 12 , 13 , 0 ,'0')

Create Cursor tmpTable (Id Int, PID Int, Level Int, Name C( 10 ))
=P_ADD( 2 )
Select tmpTable
Browse
Return


Procedure P_ADD
Lparameters _PID
Local _Cur
_Cur = Sys( 2015 )
Select * From __CLIENT Where PID=_PID Into Cursor (_Cur)
Scan
	Scatter Memvar
	Insert Into tmpTable From Memvar
	=P_ADD(Id)
Endscan
Use In (_Cur)
Return
...
Рейтинг: 0 / 0
22.12.2006, 11:18
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34219143
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
ВСЕМ ОГРОМНОЕ СПАСИБО !!! ВСЕ ВАРИАНТЫ РАБОТАЮТ!!! Всем кто принял участие в обсуждении РЕСПЕКТ и УВАЖУХА
...
Рейтинг: 0 / 0
22.12.2006, 15:17
| Ответить | Цитировать | Написать  
Запрос на выбор потдерева из дерева на FOX PRO 6.0
    #34219150
Jevgeniy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jevgeniy
Гость
...
Рейтинг: 0 / 0
22.12.2006, 15:19
| Ответить | Цитировать | Написать  
43 сообщений из 43, показаны все 2 страниц
  все  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запрос на выбор потдерева из дерева на FOX PRO 6.0
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=41&tid=1590106]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 252ms
total:  424ms
созд. / загр.: 424ms
x
x
Закрыть


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