Escrever conteudo DBGrid

Question

:?: Ol� a todosEstou montando as colunas do DBGrid na m�o conforme abaixo.  With DBGridFimCorrida do    begin      Columns.Clear;      Columns.Add;      Columns[0].Width := 060;      Columns[0].FieldN...

Massuda · Answer

Explique melhor o que voc� gostaria que acontecesse se isso pudesse ser executado...[code:1:3880790820]Columns&#91;1&93;.FieldName := Copy�Car_Cod�,3,2), [/code:1:3880790820]...

Neto · Answer

Esqueci a primeira v�rgula,Columns[1].FieldName := Copy(�Car_Cod�,3,2), Quero que ysso escreva apenas o terceiro e o pr�ximo caracteres.ObrigadoNeto...

Massuda · Answer

Isso compila sem problema... claro, voc� precisa ter um campo na tabela com nome �r_� (que � o resultado de Copy(�Car_Cod�,3,2)).

Provavelmente n�o � esse seu problema... explique melhor.

Neto · Answer

Compila sim Mussuda.Mas � que uso o evento OnDrawColumnCell, conforme abaixo:procedure DBGridDrawColumnCell(Sender: TObject;  const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);begin  inherited;  I_Aux := StrToInt(Dtm.CliDtStTmp1.FieldByName(�Set_Cod�).AsString);  DBGrid.Canvas.Font.Color:= StringToColor(M_CorSetor[ I_Aux ]);  DBGrid.Canvas.FillRect(Rect);  DBGrid.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);end;[color=red:733e7c5b92]Na linha DBGrid.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);[/color:733e7c5b92]da o erro: Acess Violation..Caso eu n�o passe por esse evento a aplica��o roda, mas na coluna deste campo n�o mostra nada.ObrigadoNeto...

Massuda · Answer

Aparentemente voc� est� tentando acessar uma coluna que n�o existe em sua tabela. Explique melhor isso...

mas preciso escrever determinado campo ( Columns[1].FieldName := �Car_Cod� ), apenas parte dele como abaixo ( Columns[1].FieldName := Copy�Car_Cod�,3,2), mas assim da erro.

Emerson Nascimento · Answer

o que o massuda est� querendo dizer � que quando voc� atribui

Columns[1].FieldName := XXXXX

quer dizer que a segunda coluna dever� exibir o conte�do do campo XXXXX

no seu caso, est� assim:

( Columns[1].FieldName := �Car_Cod� ) exibe o conte�do do campo �Car_Cod�

( Columns[1].FieldName := Copy(�Car_Cod�,3,2) ) exibe o conte�do do campo �r_� - voc� tem um campo chamado �r_� no seu dataset ?

o que exatamente voc� quer fazer?

Neto · Answer

Pessoal estava vacilando.Deu certo conforme a dica recebida por  Mussuda e Emerson.enMuito obrigadoNeto...

F�rum Escrever conteudo DBGrid #337921