dbgrid控件使用！大家研究一下(100分)

J

jackshow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #1

我想大家都用过cuteftp_pro 吧，怎么把表里面的内容排序呢？点一下标题就排序一次。
还有那个排序图标是怎么放进去的呢？

 

W

wwr74

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #2

dxdbgrid有按字段排序功能

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #3

procedure TForm4.DBGrid4TitleClick(Column: TColumn);
begin
with ryADOTable1 do
begin
if DBGrid1Boolean then
TADOTable(ryADOTable1).Sort := Column.FieldName + ' DESC'
else
TADOTable(ryADOTable1).Sort := Column.FieldName;
DBGrid1Boolean := not(DBGrid1Boolean);
end;
end;

 

D

delphi-explorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #4

具体怎么搞嘛！

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #5

在dbgrid的titleclick事件里写上面的代码就可以了

 

Z

zxha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #6

上面的代码我在DELPHI 3.0下测试时COMPILE不过去,请各位在悉心指教,谢谢!![?]

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #7

D3?没试过：（

 

J

jackshow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #8

多人接受答案了。

 

J

jackshow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #9

请问那个dbgrid1boolean 是布尔类型吧,可是我怎么DBGrid1Boolean := not(DBGrid1Boolean);
一点都没有作用[
Hint] DWDMSZfrm.pas(232): Value assigned to 'dbgrid1boolean' never used

 

Z

zyl2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #10

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var DBGrid1Boolean:Boolean;
begin
with ryADOTable1 do
begin
if DBGrid1Boolean then
TADOTable(ryADOTable1).Sort := Column.FieldName + ' DESC'
else
TADOTable(ryADOTable1).Sort := Column.FieldName;
DBGrid1Boolean := not(DBGrid1Boolean);
end;
end;