title image


Smiley Re: Sortieren OnTitleClick in einem TDBGrid. WIE??


procedure TForm1.DbGrid1TitleClick(Column: TColumn);

begin

if Query.Active then begin

Query.Close;

if Pos(' Order',Query.Sql.TExt) > 0 then begin

Query.SQL.Text := Copy(Query.Sql.TExt,1,Pos(' Order',Query.Sql.TExt)-1);

end;

Query.Sql.text := Query.Sql.text + ' Order By ' + Column.FieldName;

aktivColumn := Column.Title.Caption;

Query.open;

end;



So, fehlt zwar noch einiges, aber das Prizip ist zu erkennen

Gruss anubis

Rechtschreibfehler sind geistiges Eigentum des Authors und dürfen ohne ausdrückliche Erlaubnis weder verändert oder kopiert werden.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: