2012年12月16日
单击 DBGrid 标题实现数据自动排序
摘要： 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 := []; end; if ADOQuery1.Sort<>(Column.FieldName+' ASC') then //判断原排序方式 begin ADOQuery1.Sort := Column.FieldName+& 阅读全文
posted @ 2012-12-16 19:34 北极星 - North Star 阅读(243) 评论(0) 推荐(0)