title image


Smiley Re: Sortieren OnTitleClick in einem TDBGrid. WIE??
Volgende Procedure sortiert ein ClientDataSet je nach Feld. Das Steuern einer TTable ist identisch:



procedure SortCDS(Field: TField; MasterFieldName: string = '');

var

CDS: TClientDataset;

S: string;

begin

if Assigned(Field) and

Assigned(Field.dataset) then

begin

if (Field.FieldKind = fkData) then

S := Field.FieldName

else if (Field.FieldKind = fkLookup) then

S := Field.KeyFields;

if MasterFieldName <> '' then

MasterFieldName := MasterFieldName + ';';

CDS := TClientDataSet(Field.DataSet);

if not CDS.IsEmpty then

CDS.IndexFieldNames := MasterFieldName + S

end

end;





.

Der Aufruf:



procedure TForm1.DBGrid1TitleClick(Column: TColumn);

begin

SortCDS(Column.Field)

end;





.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: