ordenar dbgrid vinculado a TTable

Question

Pessoal,estou com dificuldades para alterar a exibi��o de um dbgrid, ordenando o conte�do atrav�s do clique nos cabe�alhos. Minha base � dbf e n�o sei trabalhar com �ndices. Detalhe: algumas fun��es d...

Anonymous · Answer

tambem nao sei identificar em qual coluna do Dbgrid o usu�rio clicou. E se acaso o usu�rio alterar a ordem das colunas? ih... me perdi todo...j� vi que nao vou conseguir... :(...

Murphi · Answer

Voc� pode usar o pr�prio t�tulo da coluna do dbgrid.
No evento TitleClick vc. pode colocar o seguinte c�digo:
if not DBGrdConsulta.Columns[ Column.Index ].ReadOnly then
begin
iPosCbx := CbxCampo.Items.IndexOf(Column.Title.Caption);
CbxCampo.ItemIndex := iPosCbx;
ClientConsulta.IndexFieldNames := Column.FieldName;

if DBGrdConsulta.Columns[ Column.Index ].PickList.Text = �� then
sCampoPesquisa := Column.FieldName
else
sCampoPesquisa := DBGrdConsulta.Columns[ Column.Index ].PickList.Text;

if ((Column.Title.Caption)= �Site�) or ((Column.Title.Caption)= �E-mail�) then
EdtPesquisa.CharCase := ecLowerCase
else
EdtPesquisa.CharCase := ecUpperCase;
end;

Anonymous · Answer

obrigado pela ajuda,adaptei seu codigo para meu sistema, mas no entanto aparentemente n�o esta ocorrendo o evento do clique no titulo... tem ideia do que pode ser???...

Anonymous · Answer

Que eu saiba o dbgrib s� ordena se j� existir um �ndice mesmo que secund�rio,  por�m quanto mais arquivos de �ndice voc� tiver mais problemas vai ter a base de dados...