Поиск "почти" одинаковых полей в таблице

[хИринах]

Всем привет.
Помогите пожалуйста с проблемой.
Ситуация такая:
У меня есть 2а Query. По структуре они идентичны.
Данные из них я копирую в Table1, индексирую.
Теперь собственно проблема получить Table2(попробую схематично объяснить):
_____________________
Table1
------------------------
заказ цех цена кол-во
-----------------------
121.....1.....5.....10
122.....2.....10.....1
122.....2.....1.......5
122.....2.....5.......1
---------------------
_____________________
Table2
------------------------
СТРОКА
-----------------------
121.....1.....5.....10
122.....2.....10.....1
.................1.......5
.................5.......1
---------------------
Посоветовали сравнить текущую строку с последующей...Но как это сделать ....?

(.... - пробелы)

[artemavd]

Может вам стоит использовать функцию DISTINCT?

[Stilet]

Ира, ты может всетки подробнее обьяснишь что тебе надо?
пока что я вижу что ты хочешь выбрать все строки, присутствующие в обоих таблицах. Это делается объединением JOIN, с указанием ключевых полей. Можно конечно и через distinct и даже (если не ошибаюсь) через группировку, но... Задание вкрай непонятное.

[Serge_Bliznykov]

а не проще ли будет просто использовать сортировку в запросе +
обработку записей на клиенте?!
И на клиенте организовать простой цикл вида:

  CurNumber := '@@@@####';
  Query1.First;
  while Not Query1.EOF do begin
     if Query1.FieldByName('Цех').AsString = CurNumber then begin
   Query1.Edit;
   Query1.FieldByName('Цех').AsString := '';
   Query1.Post;
end
else {встретили новый номер}
    CurNumber := Query1.FieldByName('Цех').AsString;
  Query1.Next;
 end;

p.s. код, разумеется, приблизительный..

p.p.s. на SQL это, имхо, тоже возможно нарисовать... но запрос будет совершенно "недетский" (да и конкретную СУБД надо точно знать)....


Stilet, Виталий, если я правильно понял, она хочет "свернуть" повторяющиеся номера. Т.е. если в строке такой же номер, как в предыдущей, не выводить его.
Ну, как в бухгалтерии, если в следующей графе идёт повтор содержимого предыдущей строчки,
ставят значок --//--

[Stilet]

Ы-ы-ы, Серж, вон он что...
Мрачная задача У меня такая же заморочка была при работе со спецификациями по ГОСТу, там тоже стандартные детали сворачивались таким образом... Ну тогда твой способ пойдет

[хИринах]

Спасибо всем))))
додумалась я))))
Сокращенно код выглядит так(не считая копирования в таблицу из 2-х квери, в табле2 находится только один столбец):

str:='------------------------------------------------------------------------------------------------------------------------';
Table1.Insert;
Table1.FieldByName('STROKA').AsString:= str;

str:='ШИФР ПО ПЛАНУ  ЗАКАЗ  ЦЕХ  ПОТРЕБНОСТЬ  ЕИ  :ШИФР ПО ФАКТУ  КОЛИЧЕСТВО  ЦЕНА(РУБ.КОП)  СУММА(РУБ.КОП)  НОМ.ДОК  ДАТА  СКЛ  ШД';
Table1.Insert;
Table1.FieldByName('STROKA').AsString:= str;

str:='------------------------------------------------------------------------------------------------------------------------';
Table1.Insert;
Table1.FieldByName('STROKA').AsString:= str;

str:='------------------------------------------------------------------------------------------------------------------------';
Table1.Insert;
Table1.FieldByName('STROKA').AsString:= str;

Z:=Z+12;

goto  p_zap;
////////////////////////////////////////////////////////////////
Query3.First;
Table2.First;

for i:=1 to Table2.RecordCount do

          begin

          p_zap:

          if Z>68 then goto  p_zak;
          IF Table2.Eof = true  then
      
            begin
            str:='ИТОГ:  '+Query3.FieldByName('SUM OF SUMMA').AsString;
            Table1.Insert;
            Table1.FieldByName('STROKA').AsString:= str;

            str:=' ';
            Table1.Insert;
            Table1.FieldByName('STROKA').AsString:= str;

            str:=' ';
            Table1.Insert;
            Table1.FieldByName('STROKA').AsString:= str;

            str:=' ';
            Table1.Insert;
            Table1.FieldByName('STROKA').AsString:= str;

          str:='ПОДПИСИ :         ' ;
          Table1.Insert;
          Table1.FieldByName('STROKA').AsString:= str;

            Table2.Close;
          //  Table2.DeleteTable;
            exit ;
            end;

          str:= (Table2NAME.AsString)   ;
          str:= AnsiUpperCase(str);
          Table1.Insert;
          Table1.FieldByName('STROKA').AsString:= str;

          str:= (Table2DRAFT.AsString) ;
          str:= AnsiUpperCase(str);
          Table1.Insert;
          Table1.FieldByName('STROKA').AsString:= str;

          str:=(Table2MAT.AsString)+'  '+(Table2ZAKAZ.AsString)+'  '+(Table2CEH.AsString)+'  '+(Table2POTR.AsString)+'  '+AnsiUpperCase(Table2EI.AsString)+'  '+(Table2CODE.AsString)+'  '+(Table2QUANTITY.AsString)+'  '+(Table2PRICE.AsString)+'  '+(Table2SUMMA.AsString)+'  '+(Table2NUM_DOK.AsString)+'  '+(Table2INS_DATE.AsString)+'  '+(Table2SKLAD.AsString)+'  '+(Table2SHIFR.AsString);
          Table1.Insert;
          Table1.FieldByName('STROKA').AsString:= str;

p_sr:
str1:=Table2.FieldByName('ZAKAZ').AsString+Table2.FieldByName('MAT').AsString+Table2.FieldByName('CEH').AsString+Table2.FieldByName('POTR').AsString+Table2.FieldByName('EI').AsString;
Table2.Next;
IF Table2.Eof = true  then goto p_it;
str2:=Table2.FieldByName('ZAKAZ').AsString+Table2.FieldByName('MAT').AsString+Table2.FieldByName('CEH').AsString+Table2.FieldByName('POTR').AsString+Table2.FieldByName('EI').AsString;
if str1=str2 then

begin
str:={(Table2MAT.AsString)+'  '+(Table2ZAKAZ.AsString)+'  '+(Table2CEH.AsString)+'  '+(Table2POTR.AsString)+'  '+AnsiUpperCase(Table2EI.AsString)+}'                         '+(Table2CODE.AsString)+'  '+(Table2QUANTITY.AsString)+'  '+(Table2PRICE.AsString)+'  '+(Table2SUMMA.AsString)+'  '+(Table2NUM_DOK.AsString)+'  '+(Table2INS_DATE.AsString)+'  '+(Table2SKLAD.AsString)+'  '+(Table2SHIFR.AsString);
Table1.Insert;
Table1.FieldByName('STROKA').AsString:= str;

goto p_sr;



end;

          p_it:
          str:='------------------------------------------------------------------------------------------------------------------------';
          Table1.Insert;
          Table1.FieldByName('STROKA').AsString:= str;

          Z:=Z+4;

        end;

end;