dbgrid中的排序问题(50分)

S

soyepp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #1

俺碰到一个"难题",对于我来说.希望各位大虾指点迷津.在dbgrid中点击title就排序,
再点击一次再反向排序,并且显示相对应的小三角,类似于windows的资源管理器.希望各
位大虾不吝赐教,谢谢!

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #2

我估计dbgrid是搞不定的～～帮你提前

 

S

soyepp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #3

各位大虾,帮帮忙吧,作不完我的51假期都歇不好,也不能用别的控件,等待中.

 

哈

哈利波特

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #4

up

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #5

var sorttype :string;
procedure TForm1.FormShow(Sender: TObject);
begin
sorttype:='ASC';
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
query1.sql.text:= 'select * from XXX order by+"'sorttype'"';
query1.open;
if sorttype='ASC' then sorttype:='DSC' else sorttype='ASC';
end;

 

C

coldew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #6

要排序倒容易，你是出现小三角不好办。如能也给我一个方法。
procedure TfrmCas.DBGrid1TitleClick(Column: TColumn);
var
s:string;
begin
if Column.Field.FieldKind=fkData then
begin
with DataModule1.ADOQueryCash do
begin
if Pos('ASC',Sort)>0 then s:=Format('%s DESC',[Column.FieldName])
else s:=Format('%s ASC',[Column.FieldName]);
Sort:=s;
end;
end;
end;

 

Y

yyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #7

用EHLIB吧,很方便的。我有最新的.