* 사용환경 : 델파이5 / Windows 2000
* 에러 메시지 :
유형별로 수치를 더하고자 합니다.
유형이 1이면 그 수치만을 더하여 퀵리포트에 보여 주고자 합니다.
유형이 2일때도 마찬가지구요...
for i:=1 to 4 do
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT SUM(A1.test1)+SUM(A1.test2) TOTAL');
SQL.Add('FROM test_A1 A1');
SQL.Add('WHERE A1.mtype = :mType ');
Parambyname('mType').AsFloat := i;
Open;
end;
result[i] := Query1.Fields[0].AsInteger;
end;
q_Label_1.Caption := Result[1];
q_Label_2.Caption := Result[2];
q_Label_3.Caption := Result[3];
q_Label_4.Caption := Result[4];
와 같이 처리 하였는데 result[1]만 값이 제대로 넘어 오네요.
왜 이렇죠?
왜 합이 안될까요?