没有合适的资源?快使用搜索试试~ 我知道了~
适用于:ClientDataSet-DataSource-DBGridEh 环境:Delphi XE2测试正常使用 使用说明:单击DBGridEh的标题栏排序(适用于ADO---ClientDataSet) --在DBGridEh的事件OnTitleBtnClick引用该函数即可: SortDBGridEh(Sender, ACol, Column); --为了保证表格的每一列都能点击触发排序,你需要将你需要排序的列属性 -- Title->TitleButton设置为True。
资源推荐
资源详情
资源评论
单击DBGridEh的标题栏排序
//------------------
//单击DBGridEh的标题栏排序
//使用说明:单击DBGridEh的标题栏排序(适用于ADO---ClientDataSet)
//--在DBGridEh的事件OnTitleBtnClick引用该函数即可:
///SortDBGridEh(Sender, ACol, Column);
////--为了保证表格的每一列都能点击触发排序,你需要将你需要排序的列属性
-- Title->TitleButton设置为True。
//------------------
Class procedure TBaseData.SortDBGridEh(Sender: TObject; ACol: Integer;Column: TColumnEh); // DBGridEh标题排序
var
FieldName, SortStr: string;
begin
Screen.Cursor := crSQLWait;
try
if (Sender is TDBGridEh) and
((Sender as TDBGridEh).DataSource.DataSet <> nil) then
begin
// if not ((Sender as TDBGridEh).DataSource.DataSet is TCustomADODataSet) then
// Exit;
if not (Sender as TDBGridEh).DataSource.DataSet.Active then
Exit;
FieldName := Column.FieldName;
if (Sender as TDBGridEh).DataSource.DataSet.FindField(FieldName).IsBlob then
//------------------
//单击DBGridEh的标题栏排序
//使用说明:单击DBGridEh的标题栏排序(适用于ADO---ClientDataSet)
//--在DBGridEh的事件OnTitleBtnClick引用该函数即可:
///SortDBGridEh(Sender, ACol, Column);
////--为了保证表格的每一列都能点击触发排序,你需要将你需要排序的列属性
-- Title->TitleButton设置为True。
//------------------
Class procedure TBaseData.SortDBGridEh(Sender: TObject; ACol: Integer;Column: TColumnEh); // DBGridEh标题排序
var
FieldName, SortStr: string;
begin
Screen.Cursor := crSQLWait;
try
if (Sender is TDBGridEh) and
((Sender as TDBGridEh).DataSource.DataSet <> nil) then
begin
// if not ((Sender as TDBGridEh).DataSource.DataSet is TCustomADODataSet) then
// Exit;
if not (Sender as TDBGridEh).DataSource.DataSet.Active then
Exit;
FieldName := Column.FieldName;
if (Sender as TDBGridEh).DataSource.DataSet.FindField(FieldName).IsBlob then
资源评论
hyz6045
- 粉丝: 0
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功