Ver Mensaje Individual
  #1  
Antiguo 19-06-2006
gilberto_1126 gilberto_1126 is offline
Miembro
 
Registrado: jun 2004
Posts: 74
Reputación: 23
gilberto_1126 Va por buen camino
Talking Ayuda con TCustom

Saludos foristas

Aqui me encontre un codigo para oredanr un dbgrid dando clic en las columnas, aqui lo muestro:

Código Delphi [-]
procedure TFProximo.RxDBGrid1TitleClick(Column: TColumn);
var
  DataSet:TDataSet;
begin
  if not FMovingColumn then
  begin
    DataSet:=Column.Field.DataSet;
    if DataSet is TCustomADODataSet then
      with TCustomADODataSet(DataSet) do
      begin
        if (Pos(Column.Field.FieldName, Sort)=1) and (Pos(' DESC', Sort)=0) then
          Sort:=Column.Field.FieldName + ' DESC'
        else
          Sort:=Column.Field.FieldName + ' ASC';
      end;
  end;
  FMovingColumn:=false;
end;

En vez de componentes ADO utilizo los de MySql entonces cambio el TCustomADODataset por TCustomMySqlDataSet, pero me marca un error, que no es valido el TCustomMySQLDataSet.

Alguien me podria decir como es la sentencia en el custom con my sql???

de antemano muchas gracias por su tiempo.

Última edición por dec fecha: 19-06-2006 a las 23:05:08.
Responder Con Cita