В качестве аналогии работы объединение по Join можно использовать вложенные циклы. Т.е. внешний цикл по первой таблице, а для каждой записи внутри цикла делается внутренний цикл по второй таблице с наложенным фильтром в виде условия объединения
Предположим, у Вас по дебету есть 3 записи с одним и тем же значением поля tnom, а по кредиту таких записей 2. Представьте себе, что произойдет, если применить аналогию вложенных циклов
1. Берем первую запись со значением tnom = 1846
2. Организуем перебор записей по второй таблице с тем же значением tnom = 1846. Таких записей 2. Т.е. получили 2 записи в выборке
3. Берем вторую запись со значением tnom = 1846
4. Организуем перебор записей по второй таблице с тем же значением tnom = 1846. Получаем те же самые записи, что были на шаге 2. Т.е. имеем дубль
5. Берем третью запись со значением tnom = 1846
6. Организуем перебор записей по второй таблице с тем же значением tnom = 1846. Получаем те же самые записи, что были на шаге 2. Т.е. имеем еще один дубль
В целом, в результирующей таблице будет произведение количества записей с одинаковым условием объединения. 3 записи в первой таблице умножаем на 2 записи во второй. В результирующей имеем 3*2 = 6 записей
Как исключить дубли? Есть 2 варианта решения
1. Исключить дубли до выборки. Т.е. сначала по каждой таблице в отдельности сделать выборку с группировкой по полю tnom и суммированием остальных полей. А затем объединить уже эти две выборки, зная, что дублей в них нет
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
* Исключаем дубли
SELECT vr_d.tnom, sum(vr_d.Sm_d) as Sm_d FROM vr_d INTO CURSOR vr_d_1 NOFILTER GROUP BY vr_d.tnom
SELECT vr_k.tnom, sum(vr_k.Sm_k) as Sm_k FROM vr_k INTO CURSOR vr_k_1 NOFILTER GROUP BY vr_k.tnom
* Объединяем предварительные выборки
SELECT nvl(vr_d_1.tnom, vr_k_1.tnom) as tnom, ;
vr_d_1.Sm_d, ;
vr_k_1.Sm_k ;
FROM vr_d_1 ;
FULL JOIN vr_k_1 ON vr_d_1.tnom = vr_k_1.tnom ;
INTO CURSOR vr_o READWRITE ;
ORDER BY 1
FULL JOIN - это как раз чтобы было "и наоборот"...
2. Надо включить в условие объединения другие поля, которые позволят однозначно определить какую запись одной таблицы следует сопоставить с какой записью второй таблицы. Но это не всегда возможно. Насколько я вижу по картинке, здесь такой вариант невозможен
Если же у Вас стоит задача просто "сложить" две таблички "как в Excel" (два листа рядом положить), то в FoxPro через Select-SQL это невозможно. Такое придется делать "вручную" именно что через вложенные циклы.
