DBGrid sortering

ja! Jeg gør.

Jens B

Et kort og præcist svar, kan det evt. uddybes ?

borrisholt> Du er dygtig - klap dig selv på skulderen  :-)

Ja synes du ikke Pelle ?

Jens B

Det er ikke så let gjort. Gå ud i byen og find et ... Kig på http://torry.net det kan du helt sikkert finde et .....

Jens B

prøv det her lille program det bytter rundt på de to øverste rækker i et stringgrid :

procedure TForm1.StringGrid1MouseDown(Sender: TObject;  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  aRow, aCol : Integer;
  tmpPtr,tmpPtrA : TStringList;
begin
  StringGrid1.MouseToCell(x,y, aCol, aRow);
  if aRow <> 0 then
    exit;

  tmpPtr:= TStringList.Create;
  tmpPtrA := TStringList.Create;

  tmpPtr.Assign(StringGrid1.Rows[1]);
  tmpPtrA.Assign(StringGrid1.Rows[2]);

  if StrComp(pointer(tmpPtr[aCol]), pointer(tmpPtr[aCol+1])) > 0 then
  begin
    StringGrid1.Rows[1] := tmpPtrA;
    StringGrid1.Rows[2] := tmpPtr;
  end
  else if StrComp(pointer(tmpPtr[aCol]), pointer(tmpPtr[aCol+1])) < 0 then
  begin
    StringGrid1.Rows[2] := tmpPtr;
    StringGrid1.Rows[1] := tmpPtrA;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j : Integer;
begin
  randomize;
  for i:= 1 to StringGrid1.RowCount-1 do
    for j:= 1 to StringGrid1.ColCount-1 do
      StringGrid1.Cells[i,j] := IntToStr(Random(5000));
end;



Jens B

Brug en OnTitleClick event og lav om dit SQL udtræk så det har en Order by det passer til den col. du har clicket.