点击dbgrid的一个字段,实现按照该字段进行排序.该如何作呀? 我的dbgrid 中的内容是通过一个存储过程来实现的。 用到的控件 storedproc1,datasource ,dbgrid. 问题如题,谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 比较麻烦,推荐使用dbgridEH ,实现如上功能比较好用。 刚刚看到一贴里面有http://community.csdn.net/Expert/topic/3189/3189567.xml?temp=.5937616 dxgrid就可以实现,自己写的话可能比较费事。 推荐使用dbgridEH ,实现如上功能比较好用,如果只想用TDBGrid来实现这样的功能,那么参照DBGrideh的源文件好了 先作以下的假设:---------------------------------存储过程名:ADOStoredProc1数据库网格控件名:DBGrid1数据源名:DataSource1DBGrid1通过DataSource1与ADOStoredProc1的记录集相关联。-----------------------------------------------------------在DBGrid1的OnTitleClick事件中添加如下代码:procedure TFrm_Main.DBGrid1TitleClick(Column: TColumn);begin if DBGrid1.Tag mod 2 = 0 then ADOStoredProc1.Sort:= Column.FieldName + ' ' + 'ASC' else ADOStoredProc1.Sort:= Column.FieldName + ' ' + 'DESC'; DBGrid1.Tag:= DBGrid1.Tag mod 2 + 1;end; delphi怎么获得DirTreeView 节点的全路径 软件加密问题 讨论数据库速度问题 如何把WebBrowser的history list清掉,给100分 请教制作安装的问题 sql语句错误! Web Service 最常用的控件是什麼。它們的作用? 这是什么错误??? 在delphi中,如何让Label正好显示文本,(宽度固定,高度正合适),文本内容可变 activeForm可以使用标准菜单控件吗? 程序在执行一个时间很长的循环的时候,怎么才能响应其他消息 急, 百思不解问题! 请高手指教!
里面有
http://community.csdn.net/Expert/topic/3189/3189567.xml?temp=.5937616
---------------------------------
存储过程名:ADOStoredProc1
数据库网格控件名:DBGrid1
数据源名:DataSource1DBGrid1通过DataSource1与ADOStoredProc1的记录集相关联。
-----------------------------------------------------------在DBGrid1的OnTitleClick事件中添加如下代码:procedure TFrm_Main.DBGrid1TitleClick(Column: TColumn);
begin
if DBGrid1.Tag mod 2 = 0 then
ADOStoredProc1.Sort:= Column.FieldName + ' ' + 'ASC'
else
ADOStoredProc1.Sort:= Column.FieldName + ' ' + 'DESC'; DBGrid1.Tag:= DBGrid1.Tag mod 2 + 1;
end;