Editar DBGrid ordenado - É impossível?

[Gabriel Cabral]

Tenho um DBGrid que precisa ter os registros em ordem alfabética e precisa ser editável.

Se eu ligar o DBGrid diretamente na tabela (.dbf), eu consigo editar mas não consigo ordená-lo.. Já tentei trabalhar com índices mas sem sucesso.

Se eu alimentar o DBGrid através de uma busca feita com SQL, só é possível editar se não estiver ordenado.

O que eu posso fazer?

É impossível editar um DBGrid ordenado?

[Douglas Soares]

Tipo, pra você organizar coloca isso no evento OnTitleClick do DBGrid

if 'a' + Column.FieldName = cds.IndexName then
  cds.IndexName := 'd' + column.FieldName
else
  cds.IndexName := 'a' + column.FieldName;

Dai você tenta editar...

Abraços

[Gabriel Cabral]

Mas eu preciso que já venha ordenado.

Só que o ORDER BY não permite que eu altere os registros no grid. :(

[Douglas Soares]

Faz assim... coloca isso assim que jogar os dados no dbgrid...

cds.IndexName := 'a' + cds.FieldByName('meucampo').name;

Abraços

Editado Março 30, 2010 por Douglas_Soares

[Gabriel Cabral]

Eu trabalho com o DBGrid, um DataSource e um TQuery.

Então isso não é possível, pois nenhum deles possui a propriedade IndexName.

[Douglas Soares]

Se você usar o ORDER BY e deixar a opção DGEDIT como true, você não consegue editar mesmo assim?

[Gabriel Cabral]

Não...

Eu deixo dgEditing := True e RequestLive da TQuery := True também, mas se tiver ORDER BY na consulta, não dá pra editar ¬¬

[Douglas Soares]

Mas então faz o seguinte amigão...

Assim que você der o open na query já dê um Query1.Edit, e no evento OnKeyDown do DBGrid coloque pra salvar quando pressionada a tecla enter, exemplo:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if KEY = VK_RETURN then
Query1.Post;
end;

Abraços

[Gabriel Cabral]

Douglas, testei aqui mas não permite o Query1.Edit.

'Query1: Cannot modify a read-only dataset'

Não é permitido editar a Query

[Douglas Soares]

taca um ClientDataSet e um DataSetProvider ai que resolve ehehe, acho que query não deixa alterar mesmo.... dá pra você coloca-los???

Abraços

Editado Março 31, 2010 por Douglas_Soares

[Jhonas]

Douglas, testei aqui mas não permite o Query1.Edit.

'Query1: Cannot modify a read-only dataset'

Não é permitido editar a Query

Isto porque a propriedade RequestLive da Query tem que estar como true, se não voce não consegue editar o registro e nem salva-lo

abraço