아기코알라 wrote:

> 안녕하십니까?

> 건강들 하시죠?

>

> 아직 정확한 답을 구하지 못해 이렇게 다시 올립니다. 죄송...

>

> DB : Paradox 7

> 콤포넌터 : Query, DBGrid, UpDateSQL, Datasource, 등등

>

> 제가 할려는 것은 CalcFields의 합계를 구할려고 합니다ㅏ.

> 코딩을 테이블에 존재하는 필드의 합계 구하는 것과 똑 같이 했는데.. 에러가 뜨네요..

> 에러는 "Invalid field name Cal" 입니다.

>

> 계산되어지는 CalcFields 부분도 합계를 내어 Edit에 표시 할 수 없나요?

> 방법을 꼭 좀 일러주시오면 정말 정말 감사하겠읍니다ㅏ.

>

> 참고로 코딩은 아래와 같사옵니다.

> P 필드는 테이블에 존재하는 부분 이고

> cal 필드는 Calcfields로 계산 되어 지는 부분입니다

>

> with Query2 do begin

> close;

> sql.clear;

> sql.add('select count(*), sum(P) P , sum(cal) cal from test');

> Open;

> end;

> Edit3.text := Query2.Fields[0].AsString; // 레코드 수

> Edit4.text := Query2.FieldByName('P').AsString; // 구입가격 합계

>

> Edit5.Text := Query2.FieldByname('Cal').AsString; // Calfields 값의 합계

>

> 바람이 많이 부네요..

> 많이 건조하기도 하고

> 건강 조심하시기 바랍니다.

> 항상 행복하세요....



CalcFields 필드는 CalcFields event에서 해주셔야 합니다.

송수정 wrote:

> 아기코알라 wrote:

> > 안녕하십니까?

> > 건강들 하시죠?

> >

> > 아직 정확한 답을 구하지 못해 이렇게 다시 올립니다. 죄송...

> >

> > DB : Paradox 7

> > 콤포넌터 : Query, DBGrid, UpDateSQL, Datasource, 등등

> >

> > 제가 할려는 것은 CalcFields의 합계를 구할려고 합니다ㅏ.

> > 코딩을 테이블에 존재하는 필드의 합계 구하는 것과 똑 같이 했는데.. 에러가 뜨네요..

> > 에러는 "Invalid field name Cal" 입니다.

> >

> > 계산되어지는 CalcFields 부분도 합계를 내어 Edit에 표시 할 수 없나요?

> > 방법을 꼭 좀 일러주시오면 정말 정말 감사하겠읍니다ㅏ.

> >

> > 참고로 코딩은 아래와 같사옵니다.

> > P 필드는 테이블에 존재하는 부분 이고

> > cal 필드는 Calcfields로 계산 되어 지는 부분입니다

> >

> > with Query2 do begin

> > close;

> > sql.clear;

> > sql.add('select count(*), sum(P) P , sum(cal) cal from test');

> > Open;

> > end;

> > Edit3.text := Query2.Fields[0].AsString; // 레코드 수

> > Edit4.text := Query2.FieldByName('P').AsString; // 구입가격 합계

> >

> > Edit5.Text := Query2.FieldByname('Cal').AsString; // Calfields 값의 합계

> >

> > 바람이 많이 부네요..

> > 많이 건조하기도 하고

> > 건강 조심하시기 바랍니다.

> > 항상 행복하세요....

>

> CalcFields 필드는 CalcFields event에서 해주셔야 합니다.



var

sum :integer;

begin

sum := 0;

query2.first;

while not query2.eof do

begin

sum := sum + Query2.FieldByname('Cal').value;

query2.next;

end;

Edit5.Text := inttostr(sum);

end;

명탁 wrote:

> 송수정 wrote:

> > 아기코알라 wrote:

> > > 안녕하십니까?

> > > 건강들 하시죠?

> > >

> > > 아직 정확한 답을 구하지 못해 이렇게 다시 올립니다. 죄송...

> > >

> > > DB : Paradox 7

> > > 콤포넌터 : Query, DBGrid, UpDateSQL, Datasource, 등등

> > >

> > > 제가 할려는 것은 CalcFields의 합계를 구할려고 합니다ㅏ.

> > > 코딩을 테이블에 존재하는 필드의 합계 구하는 것과 똑 같이 했는데.. 에러가 뜨네요..

> > > 에러는 "Invalid field name Cal" 입니다.

> > >

> > > 계산되어지는 CalcFields 부분도 합계를 내어 Edit에 표시 할 수 없나요?

> > > 방법을 꼭 좀 일러주시오면 정말 정말 감사하겠읍니다ㅏ.

> > >

> > > 참고로 코딩은 아래와 같사옵니다.

> > > P 필드는 테이블에 존재하는 부분 이고

> > > cal 필드는 Calcfields로 계산 되어 지는 부분입니다

> > >

> > > with Query2 do begin

> > > close;

> > > sql.clear;

> > > sql.add('select count(*), sum(P) P , sum(cal) cal from test');

> > > Open;

> > > end;

> > > Edit3.text := Query2.Fields[0].AsString; // 레코드 수

> > > Edit4.text := Query2.FieldByName('P').AsString; // 구입가격 합계

> > >

> > > Edit5.Text := Query2.FieldByname('Cal').AsString; // Calfields 값의 합계

> > >

> > > 바람이 많이 부네요..

> > > 많이 건조하기도 하고

> > > 건강 조심하시기 바랍니다.

> > > 항상 행복하세요....

> >

> > CalcFields 필드는 CalcFields event에서 해주셔야 합니다.

>

> var

> sum :integer;

> begin

> sum := 0;

> query2.first;

> while not query2.eof do

> begin

> sum := sum + Query2.FieldByname('Cal').value;

> query2.next;

> end;

> Edit5.Text := inttostr(sum);

> end;



안녕하세요. 송수정님 그리고 명탁님

답변 정말 정말 감사합니다.



송수정님의 말씀대로 CalcFields event의 Onchange에 명탁님의 말씀대로

아래와 같이 코딩을 했읍니다.

그런데 에러가. " Stack overflow"가 발생을 하네요...

계속 에러를 잡을려고 노력해보았지만 저의 능력부족으로 다시도움을 요청하게 되었읍니다.

죄송하지만 다시 한번 더 봐주시면 안되나요?



procedure TForm1.Query1calChange(Sender: TField);

var sum : integer;

begin

sum := 0;

Query1.First ;

While Not Query1.Eof Do

begin

sum := sum + query1.FieldByName('Cal').Value;

Query1.next;

end;

Edit5.text := inttostr(sum);

end;



항상 행복한 나날 되시길 바랍니다......