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;
위에처럼 테스트를 해보려구 했는데 넘 간단한가..
에러가 나거든요..
에러좀 찾아주세요...
감사합니다..
좋은하루 되세요......
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;
> 위에처럼 테스트를 해보려구 했는데 넘 간단한가..
> 에러가 나거든요..
> 에러좀 찾아주세요...
> 감사합니다..
> 좋은하루 되세요......
>
>