单击DBGrid列头自动排序
摘要：
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; 阅读全文
posted @ 2011-09-17 14:04 Qcj 阅读(312) 评论(0) 推荐(0) 编辑