怎样使dbgrid只显示有数据行的边框,无数据的行的边框为空白,(100)

怎样使dbgrid只显示有数据行的边框,无数据的行的边框为空白

procedure TForm1.dbgrd1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);var OldColor: TColor; R: TRect;begin if dgColLines in TDBGrid(Sender).Options then begin if Field.AsString = 'ALFKI' then with TDBGrid(Sender) do begin R := Rect; Dec(R.Left); // Dec(R.Top); // Inc(R.Bottom); Inc(R.Right); OldColor := Canvas.Brush.Color; Canvas.Brush.Color := clWhite; Canvas.FillRect(R); Canvas.Brush.Color := OldColor; end; end;end;

不错，可以实现，谢谢了。