아래와 같이 DBGRID에 코딩을 해서 사용해 보았는데...



DBGRID에 Columns에 코딩시에는 Field 을 선택하지 않고 프로그램을 실행서서

자동으로 Field가 DBGRID에 표시가 되면 아래와 같이 작성하면 가능합니다.



하지만 코딩시 먼저 DBGRID를 Columns 에 Field명을 작성하고 나서 프로그램을 실행하면

아래의 작업대로 실행되지 않습니다.



위 문제좀 해결해 주세요....





procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

Field: TField; State: TGridDrawState);

var

FieldValue : Double;

begin

Fieldvalue := Field.DataSet.FieldByName('Lastsangte').AsFloat;



if (FieldValue = 9) then begin

(Sender as TDbGrid).canvas.font.Color := clRed;

(Sender as TDbGrid).canvas.Brush.Color := clyellow;

(Sender as TDbGrid).canvas.FillRect(Rect) ;

(sender as TDbGrid).DefaultDrawdataCell(Rect,Field,State) ;



end

else begin

(sender as TDbGrid).DefaultDrawdataCell(Rect,Field,State) ;

end ;



end;