您的位置:首页 > 其它

单击DBGrid列头自动排序

2011-09-17 14:04 197 查看
procedure DBGridItemsTtileClick(Column: TColumnEh);
begin
if DBGridItems.Focused then
with cdsBillItems do
if Active and not(Bof and Eof) then
if FindField(Column.FieldName)<>nil then
IndexFieldNames:=Column.FieldName;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: