Цикл в ADOTable

[Vitalik55]

Создал цикл который должен считать задолжность людей за месяцы,
складывать их и показывать на другой таблице их сумму для каждого человека.
Мозг уже кипит))
Вот код помогите найти ошибку.

var c:real; n:string;
begin
c:=0;
ADOTable1.First;
while not(AdoTable1.Eof) do
  begin
  n:=adotable1.FieldByName('Контрагент').AsString;
    while not(AdoTable1.Eof) do
    begin
      if n=adotable1.FieldByName('Контрагент').AsString then
      begin
      c:=c+adotable1.FieldByName('Долг').AsFloat;
        if n=form3.ADOTable1.FieldByName('Контрагент').AsString then
        begin
        form3.ADOTable1.FieldByName('Долг').AsFloat:=c;
        end;
      end;
    adotable1.Next;
    end;
adotable1.Next;
end;
end;

[edgy]

Не проще ли написать запрос, чем гонять датасет по циклу?

Что-нибудь вроде этого (упрощенно):

select sum ( dolg ) as dolg_kontragent,
         kontragent
  from your_table
group by kontragent

[Vitalik55]

Просто с запросами ещё неработал и вся прога уже написанна с адотабле кроме этого момента с циклом.

[soleil@mmc]

Vitalik55, стоит подумать над предложением, edgy
представь, что у тебя в этой табличке уже не 100 строчек как у тебя на тесте, а под 100 000 в бою! во-первых, сама табличка лопнет столько данных принимать и отображать, а уж редактировать так ваще устрелится, а уж по циклам гонять и еще "веселее" будет.

но если ты так прям горишь желанием поработать с таблами, то, наверное, у тебя много лишних данных считается и итоги набегают, и данные наверняка присваются не те
ты же считаешь долг по данным табл. adotable1 для контрагента из табл. form3.ADOTable1

var 
  c:real; 
  n:string;
begin
c:=0;
n=form3.ADOTable1.FieldByName('Контрагент').AsString;
if ADOTable1.Locate('Контрагент', n, [{здесь можно указать опции локейта по желанию}]) then 
begin
  while not(AdoTable1.Eof) do 
  if n=adotable1.FieldByName('Контрагент').AsString then begin
    c:=c+adotable1.FieldByName('Долг').AsFloat;
    if not(AdoTable1.Eof) then
      AdoTable1.Next;
  end
  else begin
    form3.ADOTable1.FieldByName('Долг').AsFloat:=c;
    exit;
  end;
end;

[Vitalik55]

Прога чета ругается на EXIT и вопрос зачем он нужен.
А если его убрать то ругается на while
ADOTable1: Dataset not in edit or insert mode

[soleil@mmc]

Сообщение от Vitalik55

Прога чета ругается на EXIT и вопрос зачем он нужен.

это я обозначил момент выхода из процедуры, который возможно и нужно переписать, выбрав нормальное условие (есть над чем тебе поработать)

Сообщение от Vitalik55

ADOTable1: Dataset not in edit or insert mode

а здесь неясно про какой датасет речь - про первый или про второй
если про второй, то так допиши

form3.ADOTable1.Edit;
form3.ADOTable1.FieldByName('Долг').AsFloat:=c;
form3.ADOTable1.Post;

[Vitalik55]

Немного поковырял код получилось это

c:=0;
while not(form3.AdoTable1.Eof) do
begin
n:=form3.ADOTable1.FieldByName('Контрагенты').AsString;
  while not(form1.AdoTable1.Eof) do
  if n=form1.adotable1.FieldByName('Контрагенты').AsString then begin
    c:=c+form1.adotable1.FieldByName('Задолжность').AsFloat;
    form3.ADOTable1.Edit;
    form3.ADOTable1.FieldByName('Задолжность').AsFloat:=c;
    form3.ADOTable1.Post;
    form1.AdoTable1.Next;
    end else
    form1.AdoTable1.Next;
    end;
    c:=0;
    form3.ADOTable1.Next;

    end;

Но считает правильно и записывает в таблицу только 1 запись а дальше не идёт.

[koma_grusha]

в суть глубоко не лазила, просто подправлю твой же код

form3.AdoTable1.First;
while not(form3.AdoTable1.Eof) do
begin
    c:=0;
    n:=form3.ADOTable1.FieldByName('Контрагенты').AsString;
    form1.AdoTable1.First;
    while not(form1.AdoTable1.Eof) do
    begin
        if n=form1.adotable1.FieldByName('Контрагенты').AsString then
            c:=c+form1.adotable1.FieldByName('Задолжность').AsFloat;
        form1.AdoTable1.Next;
    end;
    form3.ADOTable1.Edit;
    form3.ADOTable1.FieldByName('Задолжность').AsFloat:=c;
    form3.ADOTable1.Post;
    form3.AdoTable1.Next;
end;

[soleil@mmc]

скл-запросом точно "дешевле" будет это проделать
form3.AdoTable1.RecordCount * form1.adotable1.RecordCount переборов по табл. form1.adotable1 - это просто до фига

надеюсь, ты не забудешь отключить контролы перед таким перебором

твой вариант (с обработкой всех строк в таблице) можно ускорить если немного выправить мой вариант и реализовать его в виде функи
по крайней мере, не нужно будет листать почти всю таблицу, чтобы встать на нужную запись (Locate рулит)

[koma_grusha]

действительно, почему бы автору не послушать советы от edgy и soleil@mmc, заодно научишься работать с запросами (чем сэкономишь уйму времени и сил), а если у тебя все на ADOTable, так ты запрос назови также, ведь почти все функции у них схожи, а основная разница, грубо говоря, в том что у запроса вместо свойства TableName, есть свойство SQL, где пишешь собственно запрос, например

SELECT * FROM Table