Q&A

  • 에러좀 찾아주세요
begin

Close;

Sql.Clear;

Sql.add ('select * from SANG');

Open;

// 구매금액계산

// Sale := 수량 * 단가

// Total := Total + sale

Sale := FieldByName('Sang_Su').asstring * FieldByName

('Sang_Dan').asstring;

Total := Total + Sale;

FieldByName('Sang_Gu').asstring := Sale ;

FieldByName('Sang_Hanp').asstring := Total;

DBGrid1.Columns[0].Field := Table1.FieldByName('Sang_Name');

DBGrid1.Columns[1].Field := Table1.FieldByName('Sang_Dan');

DBGrid1.Columns[2].Field := Table1.FieldByName('Sang_Su');

DBGrid1.Columns[3].Field := Table1.FieldByName('Sang_Gu');

DBGrid1.Columns[4].Field := Table1.FieldByName('Sang_Hap');

Close;

위에처럼 테스트를 해보려구 했는데 넘 간단한가..

에러가 나거든요..

에러좀 찾아주세요...

감사합니다..

좋은하루 되세요......





2  COMMENTS
  • Profile
    김철수 1999.07.24 06:56
    일단 Query가 빠졌는데요.

    Query1.sql.close;

    쓰신 코드

    등으로 아님 With query do begin

    쓰신 코드

    end;



    별아기 께서 말씀하시기를...

    > begin

    > Close;

    > Sql.Clear;

    > Sql.add ('select * from SANG');

    > Open;

    > // 구매금액계산

    > // Sale := 수량 * 단가

    > // Total := Total + sale

    > Sale := FieldByName('Sang_Su').asstring * FieldByName

    > ('Sang_Dan').asstring;

    > Total := Total + Sale;

    > FieldByName('Sang_Gu').asstring := Sale ;

    > FieldByName('Sang_Hanp').asstring := Total;

    > DBGrid1.Columns[0].Field := Table1.FieldByName('Sang_Name');

    > DBGrid1.Columns[1].Field := Table1.FieldByName('Sang_Dan');

    > DBGrid1.Columns[2].Field := Table1.FieldByName('Sang_Su');

    > DBGrid1.Columns[3].Field := Table1.FieldByName('Sang_Gu');

    > DBGrid1.Columns[4].Field := Table1.FieldByName('Sang_Hap');

    > Close;

    > 위에처럼 테스트를 해보려구 했는데 넘 간단한가..

    > 에러가 나거든요..

    > 에러좀 찾아주세요...

    > 감사합니다..

    > 좋은하루 되세요......

    >

    >





  • Profile
    델아기 1999.07.24 08:02
    김철수 께서 말씀하시기를...

    > 일단 Query가 빠졌는데요.

    > Query1.sql.close;

    > 쓰신 코드

    > 등으로 아님 With query do begin

    > 쓰신 코드

    > end;

    >

    예..그거는 했어요..

    복사해서 여기에 올릴때..그게 빠졌네요....^^

    감사합니다..