TDBGrid1_HeadClick 排序

最新推荐文章于 2019-07-18 22:43:42 发布
最新推荐文章于 2019-07-18 22:43:42 发布
阅读量661 收藏
点赞数
文章标签： integer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/susie8449/article/details/2613359
版权

Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Static TmpFlag As Boolean

    SaveColIndex = ColIndex       If TmpFlag Then         Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField         TmpFlag = False     Else         Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField & " DESC"         TmpFlag = True     End If End Sub

susie8449
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
tdbgrid_使用TDBGrid组件
cumao2792的博客
09-12 446
tdbgrid Contrary to most other Delphi data-aware controls, the DBGrid component has many nice features and is more powerful than you might think. 与大多数其他Delphi数据感知控件相反，DBGrid组件具有许多不错的功能，并且功能超出您的想象。 ...
delphi DBGrid排序的两种方法（自己代码中，测试成功的）
08-26
在delphi有些第三方控件确实有自带的排序功能，可是对于原始的DBGrid控件不存在自动排序功能，下面是两种不同显示的排序方法。我自己写成函数，可以调用。（自己程序中测试成功的）
支持滚轮的TDBGrid，还带排序功能
11-21
我自己做的 支持滚轮的TDBGrid ，还带排序功能
DBGrid控件“点击标题栏自动排序功能”
大家积极讨论呀
05-07 392
procedure TForm1.DBGrid1TitleClick(Column: TColumn); var I,ii:Integer; cStr:string; c:TColumn; begin for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do begin c:=TDBGrid(Column.Grid).Columns[ii]; cSt
TDBGrid
123
06-16 730
//多选行取值 procedure TForm1.Button1Click(Sender: TObject); Var i: Integer; begin for i := 0 to DBGrid1.SelectedRows.Count - 1 do Begin DBGrid1.DataSource.DataSet.GotoBookmark(DBGrid1.SelectedRo
Delphi 7 中DBGrid的排序
清风古韵
06-24 900
procedure TfrmTraceReport.DBGrid1TitleClick(Column: TColumn);var  SortField, FieldTitle: string;begin  SortField := Column.Field.FieldName;  FieldTitle := Column.Title.Caption;  ShowMessage(SortField 
单击 DBGrid 标题实现数据自动排序
weixin_30617561的博客
07-18 182
var i : integer; begin for i:= 1 to DBGrid1.Columns.Count do begin //恢复所有标题字体为默认 DBGrid1.Columns[i-1].Title.Font.Color := clWindowText; DBGrid1.Columns[i-1].Title.Font.Style := []; ...
巧用DBGrid控件的Sort属性实现“点击标题栏自动排序功能”。(改进版本)
简简单单
01-09 2190
曾看见CSDN文档中有介绍到:通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件，可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序，也可以选择排序方式（升序/降序)。这个功能的确很实用。(http://blog.csdn.net/jlee084/archive/2004/12/20/223284.aspx)。我改进了一下这功能
TDBGRID一些小技巧 .
armsnow的专栏
05-22 2865
摘  要:本文给TDBGrid增加了dgThumbTracking、及dgMouseWheel两个选项，用来支持滚动条的跟踪和鼠标滚轮。以及有关DBGrid行列颜色的一个技巧。 关键词:C++Builder  TDBGrid  ThumbTracking  MouseWheel  控件   　　TDBGrid是数据库应用程序不能不使用的一个控件,它功能出奇的强大，基本上可以完成所有数据报表
delphi DBGRID 升序降序排序 方法
qq_22535281的博客
04-15 1089
procedure Tformbrty.DbGridSetOrder(paraDbGrid: TDbGrid; paraColumn: TColumn); var locClientDataSet :TClientDataSet; strColumn :String; nReturn :Integer; function CdsSetOrder(paraCds:...
TDBGrid的使用
beslow的专栏
08-14 1293
一、改变行颜色：在DBGrid的DrawColumnCell事件来改变行颜色 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
TDBGrid使用说明
最新发布
07-13
1. 数据源绑定： - 将TDBGrid与一个数据源（TDataSource）关联起来，通过设置TDBGrid的DataSource属性来实现数据绑定。 - 将数据集（TDataSet）与数据源关联，通过设置TDataSource的DataSet属性来指定数据集。 2....
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值