procedure TfrmMain.cxGridDBTableView_List_PSSJCustomDrawCell(Sender:

TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo:

TcxGridTableDataCellViewInfo; var ADone: Boolean);

  var strValue:string;

  var iRow,iRol,iI:Integer;

begin

  //这是找到了当前数据行

  iRow :=AViewInfo.RecordViewInfo.Index;

  iRol := -1;

  //如何根据Caption找到列

  with (Sender as TcxGridDBTableView) do

  begin

    for iI :=  to ColumnCount- do

    begin

      if UpperCase(Columns[iI].DataBinding.FieldName)='加急' then

      begin

        iRol := iI;

        Break;

      end;

    end;

  end;

if iRol >= 0 then
    begin
      strValue := VarToStr(cxGridDBTableView_List.DataController.GetValue(iRow, iRol));
      if strValue = 'T' then
      begin
        ACanvas.Brush.Color := clRed;
        ACanvas.Font.Color := clWhite;
      end;
    end;

end;